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Definitions: 

Abort [Except] exception(Message: String) 

AbsoluteDef[CF/7eDe/s] const = 13 

AbsoluteLoca!Def[CF/7eOefe] const = 14 

Accent_Version [Accint] function(ServPort: port; AccVersion: DevPartString): GeneralReturn 

AccentError [Dynamic] exception(R: GeneralReturn; M: String) 

AccentVersion [Dynamic] const = True 

AccErr [AccentType] const = 100 

Access_Rights [SesDiskDefs] type = integer 

AddExtension [PatiiName] procedure(var fileName: Path_Name; Extension: String) 

AddSearchWord [CommandParse] procedure(table: pWord_Search_Table; WordKey:. integer; 

WordString: Cmnd_String) 
Adjust [Spice_String] procedure(var Str: PString; Len: Integer) 
AII_Read_Access [SesD/s/fDefs] const = #100 
A !l_Write_A CO ess [SesD/s/cDefs] const = #200 

AllocaiePort [Accint] function(ServPort: port; var LocalPort: Port; Backlog; Integer): GeneralReturn 
AllocCommandNode [CommandParse] function(WordClass: Word.Type; WordString: 

Cmnd_String): pCommand_Word_List 
ALLPORTS [/\ccenfrype] const = - 1 
ALLPTS [AccentType] const = 1 
ALoadError [/ALoad] exception(s: string_255) 
AlwaysEof [CommandParse] procedure(var ChPool: pCharacter_Pool; var PoolLength: 

Char_Pool_lndex) 
APath_Name [SesameDefs] type = string[Path_Name_Size] 
AppendCha r [Sp/ce_S/nng] procedure(var Str: PString; c: Char) 
AppendString [Spice_String] procedure(var Strl: PString; Str2: PString) 



ArcCos [RealFunctions] function(X: Real): Real 

ArcCosLarge [RealFunctions] exception(X: Real) 

ArcSin [RealFunctions] function(X: Real): Real 

ArcSinLarge [RealFunctions] exception(X: Real) 

ArcTan [RealFunctions] function(X: Real): Real 

ArcTan2 [RealFunctions] function(Y, X: Real): Real 

ArcTan2Zero [RealFunctions] exception(Y, X: Real). 

Arguments [AccentType] type = record ReturnValue: GeneralReturn; case integer of 1: (Msg: 
ptrMsg; MaxWait: long; Option: integer; PtOption: integer); 2: (Ports: ptrPortBit Array; Msg Type: 
long); 3: (SrcAddr: VirtualAddress; DstAddr: VirtualAddress; NumWords: long; Delete: boolean; 
Create: boolean; Mask: long; DontShare: boolean); 4: (NumCmds: integer; GPIBBuffer: 
GPBuffer); 5: (NormalOrEmergency: boolean; EnableOrDisable: boolean); 6: (SleepID: long); 7: 
(RectPort: Port; XI: integer; Y1: integer; X2: integer; Y2: integer; Kind: integer); 8: (SrcRect: 
Port; DstRect: Port; Action: integer; Height: integer; Width: integer; SrcX: integer; SrcY: integer; 
DstX: integer; DstY: integer); 9: (Rect: Port; FontRect: Port; Funct: integer; FirstX: integer; 
FirstY: integer; MaxX: integer; FirstChar: integer; MaxChar: integer; StrPtr: Pointer; Rsit: 
integer); 10: (LockDoLock: boolean; LockPortPtr: ptrLPortArray; LockPortCnt: long); 1-1: 
(MsgWType: long; MsgWPortPtr: ptrLPortArray; MsgWPortCnt: long) end 

ARunLoad [ALoad] procedure(RunFileName: Path_Nanne; p: pointer; filesize: long; hiskport: port; 
LoadDebug: boolean) 

ASK USER [SapphDefs] const = -32005 

AST! nconsistency [Accenf Type] const = AccErr + 46 

ASTRecord [Soof/nfo] type = integer 

ASyncfO [10] procedure(ServPort: ServerlOPort; Command: lOCommand; CmdBlk: Pointer; 
CmdBik_Cnt: long; DataBuf: Pointer; DataBuf_Cnt: long; DataTransferCnt: Long; TimeOut: 
Long) 

Auth_Error_Base [AuthDefs] const = 5000 

Auth_Var[4uf/?De/s]type = String[Auth_Var_Size] 

Auth_Var_Size[,AufftDefs] const = 30 

AuthorizationServerGone [SesDiskDefs] const = SesD!sk_Error_Base + 3 

AuthPortlnGorrect[>Auf/7DefG] const = Auth_Error_Base + 3 

AvailableVM [Accint] function(ServPort: port; var NumBytes: Long): GeneralReturn 

BackLogValue [AccentType] type = 0..MAXBACKLOG 

BadASsgnment [Dynamic] exception 

BadBase [Stream] exception(FileName: SName; Base: Integer) 

BadCreateMask [AccenfType] const = AccErr + 52 

BadDateTime [Time] exception 

BadExit [Except] exception 

BadHeap [Dynamic] exception{H: HeapNumber) 

BadHeapNumber [Dynafn/c] const = 

BadldTable [Stream] exception(FileName: SName) 

BadlPCName [AccentType] const = AccErr+ 19 

BadKernelMsg [/Accenf7ype] const = AccErr + 27 

BadMsg [Accenf Type] const = AccErr + 22 

BADMSGID [^ccenffype] const = 1 

BadMsgType [yAccenflype] const = AccErr+18 

BadName [SesameDe/s] const = Sesame_Error_Base + 4 

BadPartitionName[SesD/s/(Defs] const = SesDisk_Error_Base + 1 

BadPartitionType[SesD/s/(Defs] const = SesDlsk_Error_Base + 2 

BadPatterns [PMatch] exception 

Bad Pointer [Dynamic] exception 

BadPriority [>Accenf Type] const = AccErr + 30 

BadRectangle [4ccenf7ype] const = AccErr + 53 

BADREPLY [AccentType] const = 3 

Bad Rights [Accenf Type] const = AccErr + 8 



BadSea re hIistSy ntax [£/?v/WgrDe/s] const = Env_Error_Base + 3 

BadSegmenl [iAccenf Type] const = AccErr + 34 

BadSegType[Acce/7fr/pe] const = AccErr + 33 

BadTrap [/IccenfFype] const = AccErr + 31 

BadVPTable[4ccen/rype] const = AccErr + 39 

BadWildName [SesameDefs] const = Sesame_Error_Base + 7 

BaseType [SymDefs] type = (T_Unknown, T_Char, T_Boolean, T_lnteger, T_Enumerated, T_Real, 

T_Long, T_Pointer, T_Var, T_Routine, T_File, T_String, T_Set, T_Record, T_Array, T.Unused) 
BIRecord [Bootlnfo] type = packed record case integer of 1:. (IntBlk: array[0..255] of integer); 2: 

(OvITable: array[0..11] of Virtual Address; VP: VirtualAddress; PV: VirtualAddress; PVList: 

VirtualAddress; Sector: VirtualAddress; PCB: VirtualAddress; AST: VirtualAddress; 

AccentQueue: VirtualAddress; AccentFont: VirtualAddress; AccentCursor: VirtualAddress; 

AccentScreen: VirtualAddress; ScreenSize: integer; FreeVP: integer; FreeAST: integer; 

ScfiedProc: integer; InitProc: integer; BootChar: integer; NumProc: integer; StackSize: integer; 

GlobalSize: integer; NumSVReg: integer; TrapCode: integer; TrapArgs: VirtualAddress; 

MemBoard: integer; AccentStdCursor: VirtualAddress; AccentRoTemp: VirtualAddress; 

DefaultPartitionName: String[19]; IgnoreRunFile: Boolean; Machinelnfo: MachinelnfoRec; Filler: 

array[0..49-WordSize(AstRecord)] of integer; FirstAst: ASTRecord; EtherlOArea: 

VirtualAddress; UserPtr: VirtualAddress; SVContext: record SV_CS: integer; SV_GP: integer; 

SV_LP: integer; SV_LocalSlze: integer; SV_TrapCount: integer; SV_FirstRN: integer; 

SV_PC_Vector: array[0..121] of integer end) end 
Bit1 [AccentType] type = 0..1 
Bit10[Acce/7f Type] type = 0..1023 
Bit1 1 [AccentType] type* = 0..2047 
Bit 1 2 [Accenf Type] type = 0..4095 
Bit1 3 [AccentType] type = 0..8191 
Bit14 [/Accenrrype] type = 0..1 6383 
Bin 5 [^ccenflype] type = 0..32767 ^ 
Bit16 [Acce/i/rype] type = Integer 
B!t2 [AccentType] type = 0..3 
Bits [AccentType] type = 0..7 
Bit32 [AccentType] type = packed, record case integer of 1: (DblWord: array[0..1] of integer); 3 

(Bit32Ptr: pBit32); 4: (AnyPtr: pointer); 5: (Byte: packed array[0..3] of BitS); 6: (PageOffset: BitS 

LswPage: BitS; MswPage: Bit16); 7: (Lng: Long); 8: (BIk: integer; Index: Bit12; Imag: Bit4); 13 

(Fie!d4: BitS; FieldS: Bit8; Field2: BitS; Fieldl: Bit7; FieldO: Bit1); 14: (WordO: Bit16; Wordi 

Biti 6); 1 5: {ByteO: BitS; Bytel : BitS; Byte2: BitS; ByteS: BitS); end 
Bit4 [AccenfType] type = 0.,15 
Bits [AccentType] type = 0..31 
Bits [AccentType] type = 0..63 

Bit64 [AccentType] type = record Isw: long; msw: long; end 
Bit7 [Accenffype] type = 0..1 27 
Bits [AccentType] type = 0..255 
Bit9 [Accenr7"ype] type = 0..51 1 
BitTable [Spice_String] type = set of Char 
BlankStarString[Sa/fErrof] const = " 
BootBlockLocation [Soo//n/o] const = #20000000000 
BorderOverhead [Sapp/iDefs] const = 5 
BOTTOM [SapphDefs] const = 32000 
BreakKind [Spice_String] type = set of BreakType 
BreakPointTrap [Accenffype] const = AccErr + 45 
BreakRecord [Spice_String] type = record Breakers: set of Char; emitters: set of Char; Flags 

BreakKind end 
BreakTable[Sp/ce_Sfr/>7g]type = tBreakRecord 

BreakType [Spice_String] lype = (Append, Retain, Skip, FoldUp, FoldDown, Inclusive, Exclusive) 
Busy Rectangle [AccentType] const = AccErr + 57 



ByteSizeOfAbsoluteLocalSymbol [CFileDefs] function{varsym: string): long 

ByteSizeOfAbsoluteSymbol [CFileDefs] function(var sym: string): long 

ByteSizeOfLlbrarySymbol [CFileDefs] function{var libname: string): long 

CantFork [AccentType] const = AccErr + 29 

Cats [Spice_String] function(Str1, Str2, Str3: pstring): pstring 

Cat4 [Spice_Stnng] function(Str1 , Str2, Str3, Str4: pstring): pstring 

Cats [Spice_String] function(Str1 , Str2, Str3, Str4, StrS: pstring): pstring 

Cats [Spice_Stnng] function(Str1 , Str2, StrS, Str4, StrS, Str6: pstring): pstring 

cChCmd [SapphDefs] const = 

cdBIueDown [SapphFileDefs] const = 258 

cdBlueUp [SapphFileDefs] const = 262 

cdDiffPosResponse [SapphFileDefs] const = 267 

cdGreenDown [SapphFileDefs] const = 259 

cdGreenUp [SapphFileDefs] const = 263 

cdListener[Sapp/7F//eDefs] const = 269 

cdNoEvent [SapphFileDefs] const = 268 

cd Pes Response [Sapp/iF/7eDefs] const = 266 

cdRegionExit[Sapp/7F/7eDefs] const = 264 

cdTimeout [SapphFileDefs] const = 265 

cdWhiteDown [SapphFileDefs] const = 257 

cdWhiteUp [SapphFileDefs] const = 261 

cdYelIowDown[Sapp/?F/7eDe/s] const = 256 

cdYenowUp[Sapp/7F/7eOe/s] const = 260 

CF_IOBoard [Configuration] function: Cf_IOBoardType 

CfJOBoardType[Co;;f/guraf/on]type = (Cf_CIO, Cf_EIO) 

Cf_MoR!tor [Configuration] function: Cf_MonitorType 

Cf.MonitorType [Configuration] type = (Cf_Landscape, Cf_Portrait) 

Cf_Netv/ork [Configuration] function: Cf_NetworkType 

Cf_NetvvorkType[Conf/guraf/on]type = (Cf_CMUNet, CfJOMBitNet) 

Cf_0ldZ80 [Configuration] function: Boolean 

CFIieVersion [CF/7eDe/s] const = -4 

ChainHead [CF/7eDe/s] const = 12 

ChangeExtensions [PathName] procedure(var Name: Path^Name; EList: Extension_List; NewExt: 

string) 
ChangeUserParams [Auth] function{ServPort: Port; UserName: Auth_Var; CurrentPassword: 

Auth_Var; ChangePassword: Boolean; NewPassword: Auth_Var; NewProfiie: APath_Name; 

NewShell: APath_Name): GeneralReturn 
Char_PoolJndex [CommandDefs] type = long 
Character_Pool [CommandDefs] type = packed array[0..0] of char 
ChA rray [Stream] type = packed array[1 ..1] of char 
Check_Type [AuthDefs] type = (Check.Login, Check_User) 
CheckHeap [Dynamic] procedure(S: HeapNumber) 
Checkin [MsgN] function(ServPort: Port; PortsName: string; Signature: Port; PortsID: Port): 

GeneralReturn 
Checkout [f\/lsgN] functlon(ServPort: Port; PortsName: string; Signature: Port): GeneralReturn 
CheckUser [Auth] function (Sen/Port: Port; UserName: Auth_Var; Password: Auth_Var; var UserRec: 

UserRecord): GeneralReturn 
CImplnfo [Code] type = record case boolean of true: (ModuleName: SNArray; FileName: FNString); 

false: (Ary: array[0..0] of integer) end 
CImplnfo [SegDefs] type = record case boolean of true: (ModuleName: SNArray; FileName: 

FNString); false: (Ary: array[0..0] of integer) end 
CLoadNotCFile [Cload] const = - 1 
CLoadProcess [Cload] function(FileName: APath_Name; var FilelnMem: pointer; var FiieSize: long; 

Proc: Port; LoadDebug: Boolean): GeneralReturn 



CloselO [10] function(ServPort: ServerlOPort): GeneralReturn 

Cmd_EmptyCmdLine [Ex/raCmcyParse] const = -3 

Cmd_NotFound [Ext raCmd Parse] const = WS_NotFound 

Cmd_NotlnsMaybeSwitches [ExfraCmdParse] const = -4 

Cmd_NotUnique [ExtraCmd Parse] const = WS_NotUnique 

Cmd_SomeError [Ex^raCmc/Parse] const = -5 

CmdChar [CommandParse] const = Chr{#200 + 24) 

CmdFiIeChar[CommandParse] const = Chr(#200 + 26) 

CmdParse_Error_Base [CommandDefs] const = 4200 

Cmnd.St ring [CommandParse] type = String[MaxCmndString] 

cNoCmd [SapphDefs] const =1 

CNTRLOOPS [Sapp/7F/7eDe/s] const = #225 

CodeVersion [Code] const = '1.14' 

conrimand_fileJeadin_char [CommandParse] const = ' 

Command_File_List [CommandParse] type = RECORD cmdFile: Text; isCharDevice: Boolean; next: 

pCommand_File_List; END 
Command_Word_List [CommandParse] type = packed record ptrWordString: pWord_String; 

DeallocWordString: boolean; case WordClass: Word_Type of in_arg, out_arg, commandjile: 

(NextArg: . pCommand_Word_List); switch_arg: (NextSwitch: pCommand_Word_List; 

ValueOfSwitch: pCommand_Word_List; CorrespondingArg: pCommand_Word_Llst); 

switch_value: (); end 
CommandBlock [CommandDefs] type = record WordCount: long; WordDirlndex: Char_PoolJndex; 

WordArrayPtr: pCharacter_Pool; WordArray_Cnt: Char_Pool_Index; end 
CommandParseVersion [CommandParse] const = '5.7 of 3 Jun 84' 
commentJeadin_char [CommandParse] const = '#' 
CommentLen [Code] const = 80 
CommcntLen [SegDefs] const = 80 
Compactlcons [Sapph] procedure(ServPort: Window) 
CompletePathName [PathName] function(var WildPathName: Wild_Path_Name; ImplicitSearchList: 

Env_Var_Name; FirstOnly: boolean; var Cursor: integer): long 
ComputeP regress [WindowUtils] procedure{Current, Max: Long) 
Concat [SpicejString] function(Str1 , Str2: PString): PStrIng 
Confirm_NO [ExtraCmd Parse] const = 2 
Contirm_Swltches [ExfraCmdParse] const = 3 
Confirm_YES [ExtraCmdParse] const = 1 
ConfirmUser [Auth] function(ServPort: Port; UserAuthPort: Port; var UserlD: UserJD; var 

UserMachineName: Auth_Var): GeneralReturn 
Connectionlnheritance [Spawn] type = (NewOne, Given, GivenReg) 
ControlChar[Sfream]type = 0..#37 
ConvertPoolToStrJng [CommandParse] function(ChPool: pCharacter_Pool; FirstChar: 

Char_PoolJndex; String Length: Char_PoolJndex): Cmnd_String 
ConvertStrlngToPool [CommandParse] procedure(CnvStr: Cmnd_String; var ChPool: 

pCharacter_Pool; var PoolLength: Char_Pool_lndex) 
ConvUpper [Spice_String] procedure(var Str: PString) 
CopyEnvConnection [EnvMgr] function{ServPort: Port; OldConnection: Port; var NewConnection: 

port): GeneralReturn 
Cos [RealFunctions] function(X: Real): Real 
CosH [RealFunctions] function{x: real): real 
CosHLarge [RealFunctions] exception(X: Real) 
CosLarge [Hea/Funcf/ons] exception(X: Real) 
CoTan [RealFunctions] function(X: Real): Real 
CoveredRectangle [/Accenfrype] const = AccErr + 56 
CreateHeap [Dynamic] function: HeapNumber 



CreateProcess [Accint] function(ServPort: port; var HisKernelPort: port; var HisDataPort: port): 

GeneralReturn 
CreateRectangle [Acctnt] function(ServPort: port; RectPort: port; BaseAddr: VirtualAddress; 

ScanWidth: Integer; BaseX: Integer; BaseY: Integer; MaxX: Integer; MaxY: Integer; IsFont: 

Boolean): GeneralReturn 
CreateSegment [Accint] function(ServPort: port; ImagSegPort: port; SegmentKind: SpiceSegKind; 

InitialSize: Integer; MaxSize: Integer; Stable: Boolean; var Segment: SegID): GeneralReturn 
CreateWindow [Sapph] function(ServPort: Window; fixedPosition: boolean; var leftx: integer; var 

topy: integer; fixedSize: boolean; var width: integer; var height: integer; hasTitle: boolean; 

hasborder: boolean; title: TitStr; var progName: ProgStr; haslcon: boolean; var vp: Viewport): 

Window 
CRLFConvention [SysType] const = false 
CursorArrayRec [SapphFileDefs] type = record firstBlock: Packed Record numCursors: Integer; 

filler: Integer; offsets: Array[0..126] of record x: Integer; y: Integer; End; End; cursors: array[0..0] 

of Pattern Map; end 
CursorFunction [SapphDefs] type = (cfScreenOff, cfBroken, cfOR, cfXOR, cfCursorOff) 
CursorSct [Sapp/7Defs]type = LONG 
CVD [SpiceJString] function(Str: PString): integer 
CVH [Spice_String] function{Str: PString): integer 
CVHS [Spice_String] function(l: integer): PString 
CVHSS [Spice_String] function(i: integer; W: integer): PString 
Cvint [Spice_String] function(Str: PString; R: integer): integer 
CvL [Spice_String] function(Str: PString; Radix: integer): long 
CvLS [Spice_String] function(l: long; W: integer; Radix: integer; Fill: Pstring): Pstring 
CVN [Spice_String] function(l: integer; W: integer; B: integer; Fill: Pstring): Pstring 



CVO [Spice_Siring] function(Str: PString): integer 



CVOS [Spice_String] function(l: integer): Pstring 

CVOSS [SpiceJString] function(l: integer; V^l: integer): Pstring 

CVS [SpiceJString] funct!on(l: integer): Pstring 

CVSS [Spice_String] function(l: integer; W: integer): Pstring 

CvUp [SpiceJString] function(Str: PString): PString 

Data2StateIcF//eDefs]const = 2 

Data_Format[SesameDefs]type = long 

DATAPORT [Accenffype] const = 2 

DataState [CFileDefs] const = 1 

Date_Fields [TimeDefs] type = packed record Year: integer; Month: 1..12; Day: 1..31; Weekday: 0..6; 

end 
DateString [ALoad] function(date: InternaLTime): String 

DeailocatePort [Accint] function(ServPort: port; LocalPort: Port; Reason: Long): GeneralReturn 
DeAlloclconVP [Sapp/7] procedure(ServPort: Window) 
DebugMessage [ProcMgrDefs] type = record Head: Msg; tKPort: TypeType; KPort: Port; tArgI: 

TypeType; Arg1 : Long; tArg2: TypeType; Arg2: Long; end 
DEFAULTBACKLOG [AccentType] const = * 
DefaultlnputName [Stream] var: STRING[255] 
DefaultOutputName [Stream] var: STRING[255] 
DEFAULTPTS [AccentType] const = 
DefHeapSi2e[CoG(e]const= #4 
DeflncHeap[Coofe]const= #4 
DeflncStack [Code] const = #4 
DefinedGlobal [CFileDefs] const = l.nitializedSymbol 
DefinedLocal [CF/7eDe/s] const = LocaiLabel 

DefineFuIISize [Sapph] procedure(ServPort: Window; exceptW: Window) 
DefStackSize [Code] const = #20 
DeleteChars [Spice_String] procedure(Var Str: PString; Index, Size: Integer) 



DeleteRegion [ViewPt] procedure{ServPort: Viewport; regionNum: integer) 

DeleteSearchWord [CommandParse] procedure(table: pWord_Search_Table; WordString: 

Cmnd_String) 
DeleteWindow [Sapph] procedure(ServPort: Window) 
DensityType [lODefs] type = (SingieDensity, DoubleDensity) 
Deposit [Accint] function(ServPort: port; RegOrStack: Boolean; index: Integer; Value: Integer): 

GeneralReturn 
DestroyChPool [CommandParse] procedure(var ChPool: pCharacter_Pool; var PoolLength: 

Char_PooLlndex) 
DestroyCommandList [CommandParse] procedure(var argList: pCommand_Word_List) 
DestroyCommandParse [CommandParse] procedure 
DestroyHeap [Dynamic] procedure(S: HeapNumber) 

DestroyRectangle [/Acc/m] function(ServPort: port; RectPort: port): GeneralReturn 
Destroy Regions [ViewPt] procedure(ServPort: Viewport) 

DestroySearchTable [CommandParse] procedure(var table: pWord_Search_Table) 
Destroy Segment [Accint] function(ServPort: port; Segment: SegID): GeneralReturn 
Destroy Viewport [ViewPt] procedure(ServPort: Viewport) 
DestroyVPCursors [ViewPt] procedure(ServPort: CursorSet) 
DevPartString[>Accenfrype]type = string[MAXDPCHARS] 
DForm_16_Bit[SesameDefs] const = 16 
DForm_32_Bit [SesameDefs] const = 32 
DForm_36_Bit [SesameDefs] const = 36 
DForm_8_Bit [SessmeDefs] const = 8 
DForm_CRLF_Text [SesameDefs] const = #413 
DForm_LF_Text [SesameDe/s] const = #410 
DForm_Press [SesameDefs] const = #1000 
DForm_Unspecified [SesameDefs] const = 
Dir_Sepa rater [SesameDefs] const = '/' 
DirectIO [Accint] function(ServPort: port; var CmdBlk: DirectlOArgs; var DataHdr: Header; var Data: 

DiskBuffer): GeneralReturn 
DirectlOArgs [AccentType] type = Record lOStatus: Integer; UnitNumber: Integer; PhysAddress: 

Long; Command: DirlOCommands; end 
DirectoryNctEmpty [SesameDefs] const = Sesame_Error_Bas8 + 3 
DirectoryNotFound [SesameDefs] const = Sesame_Error_Base + 2 
DirlOCommands [AccentType] type = (DirlOlnit, DirlORead, DirlOWrite, DirlOReadCheck, 

DirlOWriteCheck, DirlOTrackRead, DirlOTrackWrite, DirlOParamRead, DirlOBootRead, 

DirlOBootWrite, DiriOCIose) 
DisablePrivs [Pascallnit] function(Proc: PORT): GeneralReturn 
DiskAddr [AccentType] type = packed record case integer of 1: (Ing: long); 2: (byte: packed 

array[0..3] of BitS) end 
DiskBuffer [AccentType] type = Packed Array[0..DISKBUFSIZE*2- 1] of Bits 
DISKBUFSIZE[Accenfrype] const = PAGEBYTESIZE div 2 
DiskErr [AccenfType] const = AccErr + 32 

Disklnterface [AccentType] type = (ElO, CIO, FlopDrives, MultiBus, Enet) 
DiskParams [AccentType] type = Record DskBoptSize: Integer; DskSectors: Integer; 

DskNumHeads: Integer; DskNumCylinders: Integer; DskSecCyl: Long; Case HDiskType: 

DIskType of DSInch: (WriteCompCyl: Integer; LandingZone: Integer); D14lnch: (c24MByte: 

Boolean); End 
DiskType [AccentType] type = (DUnused, DSIncfi, D14lnch, DSInch, DSMD, DFIoppy) 
DisposeP [Dynamic] procedure(var Where: pointer; L: integer) 
DivZero [Except] exception 
DONTCARE [Sapp/7Defs] const = -32004 
D0NTWAiT[.4ccen/rype] const = 1 
DstryCmdFiles [CommandParse] procedure(var inF: pCommand_File_List) 



Dummy [/\ccenf Type] const = AccErr + 

Dump [Except] exception(Message: String) 

DynamicVersion [Dynamic] const = '1.0' 

DynDebug [Dynamic] const = false 

Dyn Print [Dynamic] const = false 

DynStats [Dynamic] procedure(Tr, Dump: boolean) 

ElOAddress [EtherlODefs] type = record High: integer; Mid: integer; Low: integer end 

E10ByteCount[E//7er70Defs] const = 3002 

E1OByteData[Ef/7er70D8fs]type = packed array[0.. 1499] of 0.. 255 

E10ByteslnHeader[Ef/7er70De/s] const = 14 

E1 OCharData [EtherlODefs] type = packed array[0..1499] of char 

El OCRC[Ef/7er70Defs] const = 3005 

E10FilterType[Ef/7er70De/s]type = ElOType 

ElOGetAdd [NetlOMB] function(ServPort: ElOPort; var Addr: ElOAddress): GeneralReturn 

ElOlntegerData [EtherlODefs] type - packed array[0..749] of integer 

E1 OLongData [EtherlODefs] type = packed array[0..374] of long 

El 0MaxDataBytes[Ef/}er70Oefs] const = 1500 

ElOMessage [EtherlODefs] type = record Head: Msg; Body: array[0..123] of integer; end 

ElOMinDataBytes [E?/7er70Defs] const = 46 

E1 ONoFreeStructures [NetWMB] exception 

ElONoNet [Ef/ier 7 ODefs] const = 3003 

El OOK[Ef/7er70Defs] const = 3000 • 

ElOPacket [EtherlODefs] type = packed record Dest: ElOAddress; Src: ElOAddress; PType: 

ElOType; case integer of 1: (BData: ElOByteData); 2: (CData: El OCharData); 3: (IData: 

ElOlntegerData); 4: {LData: El OLongData); end 
ElOPort [ErnertODefs] type = Port 

ElOPortClear [NetWl^B] function(ServPort: EIGPort; PacketPort: ElOPort): GeneralReturn 
ElOReceive [EtherlODefs] exception (ServPort: ElOPort; Buff: pEIOPacket; NumBytes: long) 
El ORecvFailed [NetlOMB] exception{Why: Integer) . 
E10RelVal[Ei/?er70De/s]type = integer 

ElOSend [Net10l\/IB] function(ServPort: ElOPort; Buff: pEIOPacket; Buff.Cnt: long): GeneralReturn 
E10SendError[Ef/7er70De/s] const = 3004 
ElOSendFailed [/Vef70MB] exception(Why: Integer) 
ElOSetFllter [NetWMB] function(ServPort: ElOPort; PacketPort: ElOPort; Which: ElOFilterType): 

GeneralReturn 
El OTimeOut[Ef/7er70Defs] const = 3001 
El OType [Ef /7er 7 ODefs] type = integer 

ElOTypeClear [NetlOMB] function(ServPort: ElOPort; Which: ElOFilterType): GeneralReturn 
E10WordslnHeader[Ef/7er70Defs]const = 7 
EBad Reply [Ef/7eraser] exception 
ELeveM Abort [SaphEmrExceptions] exception 
ELevell Debug [SaphEmrExceptions] exception 
ELevel2 Abort [SaphErnrExceptions] exception 
ELevel3 Abort [SaphEmrExceptions] exception 
EMERGENCYMSG [AccentType] const = 1 
EmergMsg [Except] exception 
EM Port [Pascal! nit] var: port 

Enablelnput [ViewPt] procedure(ServPort: Viewport; keytrantab: VPStr255; timeout: integer) 
EnableNotifyExceptions [ViewPt] procedure(ServPort: Viewport; notifyPort: Port; changed: 

boolean; exposed: boolean) 
EnablePrivs [Pascallnit] function(Proc: PORT): GeneralReturn 
EnableRectangles [Accint] function (ServPort: port; RectList: PtrPortArray; RectList_Cnt: long; 

Enable: Boolean): GeneralReturn 
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EnableWinListener [Sapph] procedure(ServPort: Window; abortPort: Port; keytranTab: VPStr255; 

timeOut: integer) 
Entry_Ail [SesameDefs] const = 
Entry_Data [SesameDefs] type = record case Entry _Type of Entry_File: (); Entry Directory: (); 

Entry_Port: (EDPort: Port); #400: (EDBytes: packed array[0..255] of bit8);#401: (EDWords: 

array[0..127] of integer); #402: {EDLongs: array[0.,63] of long); #403: (EDString: string[255]); 

end 
Entry_Di rectory [SesameDefs] const = 2 
Entry_File [SesameDefs] const = 1 
Entry_Fo reign [SesDiskDefs] const = 6 
Entry_List [SesameDefs] type = tEntry_List_Array 
Entry_List_Ar ray [SesameDefs] type = array[0..0] of Entry_List_Record 
Entry_List_Record [SesameDefs] type = record EntryName: Entry_Name; EntryVersion: long; 

Entry Type: Entry_Type; NameStatus: Name_Status; end 
Entry_Nanne [SesameDefs] type = string[Entry_Name_Size] 
Entry_Name_Size [SesameDefs] const = 80 
Entry_Port [SesameDefs] const = 3 
Entry_RESERVED [SesameDefs] type = 4.. #377 
Entry_Type [SesameDefs] type = 0..# 77777 
Entry_UserDefined [SesameDefs] type = #400.. #77777 
Env_Element [EnvMgrDefs] type = string[Env_Element_Size] 
Env_Element_A r ray [Env/WgrDefs] type = array[0..0] of Env_Element 
Env_Element_Size [EnvMgrDefs] const = 255 
Env_Error_Base [Eni/MgrDefs] const = 1600 
3nv_quoted_bracket_char[Commanc/Parse] const = "" 
Env_Scan_Array [Env/WgrDefs] type = array[0..0] of Env_Scan_Record 
Env_Scan_List [EnvMgrDefs] type = tEnv_Scan_Array 
Env_Scan_Record [EnvMgrDefs] type = record VarName: Env_Var_Name; VarType: Env_Var_Type; 

VarScope: Env_Var_Scope; end 
en v_va r_b racket_cha r [CommandParse] const = 't' ' 
Env_yar_Name [EnvMgrDefs] type = string [En v_VarName_Slze] 
En v_Var_Scope [EnvMgrDefs] type = (Env_Normal, Env_Local, Env_Global) 
Env_Var_Type [EnvMgrDefs] type = (Env_String, Env_SearchList) 
En v_Variable [EnvMgrDefs] type = tEnv_Element_Array 
Env_VarName_Size [EnvMgrDefs] const = Entry_Name_Slze 
EnvCompletePathName [PattiName] function(EnvConnection: Port; var WildPathName: 

Wild_Patfi_Name; ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; var Cursor: integer): 

long 
EnvDisconnect [EnvMgr] function(ServPort: Port): GeneralReturn 
EnvFlndWild Pathnames [PathName] function(EnvConnection: Port; var WildPathName: 

Path_Name; ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; NameFlags: Name_Flags; 

EntryType: Entry_Type; var FoundlnFirst: boolean; var DirName: APath_Name; var EntryLlst: 

Entry_List; var EntryList_Cnt: long): GenerafReturn 
EnvVariableNotFound [EnvMgrDefs] const = Env_Error_Base + 1 
eofChar[CommancfParse] const = chr(O) 
eolnChar[CommandParse] const = chr(#12) 
ErAnyError[CommandDefs] const = CmdParse_Error_Base + 14 
ErBadCmd [CommandDefs] const = CmdParse_Error_Base + 2 
ErBadQuote [CommandDefs] const = CmdParse_Error_Base + 13 
ErBadS witch [CommandDefs] const = CmdParse_Error_Base + 1 
ErCmdNotUnique [CommandDefs] const = CmdParse_Error_Base + 8 
ErCmd Pa ram [CommandDefs] const = CmdParse_Error_Base + 6 
EReceive [AccCall] function(var xxmsg: Msg; MaxWait: long; PortOpt: PortOption; Option: 

ReceiveOption): GeneralReturn 
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EReceiveFaiied [Etherilser] exception{Vyhy: GeneralRetu'rn) 

ErlllCharAfter[Commar?dDefs] const = CmdParse_Error_Base + 12 

ErNoCmd Pa ram [CommandDe/s] const = CmdParse_Error_Base + 4 

ErNoOutFile[Co/77mandDefs] const = CnndParse_Error_Base + 9 

ErNoS w Pa ram [Com/7?andDe/s] const = CmdParse_Error_Base + 3 

ErOnelnput [CommandDefs] const = CmdParse_Error_Base + 10 

ErOneOutput [CommandDefe] const = CmdParse_Error_Base + 1 1 

ErrorMsgPMBroadcast [SaltError] procedure{GR: GeneralReturn; ER_Type: GR_Error_Type; 
ProgName: String; InMsg: PString) 

ErSwNotUnJque [Comma/idDe/s] const = CmdParse_Error_Base + 7 

ErSwParam [CommandDe/s] const = CmdParse_Error_Base + 5 

EscKind [Sapp^F/VeDefs] type = (CodeNormal, CodeSame, EscReturn, EscNoop) 

ESendFailed [Etherilser] exception(Why: GeneralReturn) 

EStack [Except] exception 

EStackToo Deep [/AccenfType] const •= AccErr + 42 

EtherHeader [EtherTypes] type = PACKED RECORD Src: 0..255; Dst: 0..255; Typ: INTEGER; END 

EtherlDBase [Ef/rerTypes] const = 800 

Ether Packet [EtherTypes] type = RECORD CASE Integer OF 0: (Header: EtherHeader; DataWords: 
ARRAY[0..MaxEtherWords-WordSize(EtherHeader)-1] OF INTEGER); 1: (Words: 
ARRAY[0..MaxEtherWords-1] OF INTEGER); 2: (LongHeader: EtherHeader; LongWords: 
ARRAY[0..(MaxEtherWords-WordSize(EtherHeader)) div 2-1] OF LONG); 3: (ConfigHdr: 
EtherHeader; SkipC: integer; ConfigBytes: PACKED 

ARRAY[0..2*(MaxEtherWords - WordSize(EtherHeader) - 1 )] OF BitS) END 

EtherPacketBytes[Ef/7errypes] const = 2*WordSize(MsgEtherPacket) 

EtherTypSConfigTest [Ef/jerTypes] const = #220 

EtherTypConfigTest [E//?errypes] const = #220 

EtherTypEchoMe [EtherTypes] const = #700 

EtherTyplAmAnEcho[Emerrypes] const = #701 

EtherTypPup [Ef/?errypes] const = #1000 

EViewPtChanged [SaphEmrExceptions] exception(vp: Viewport; nev^x, newy, neww, newh, 
newRank: Integer) 

EViewPtExposed [SaphEmrExceptions] exception(vp: Viewport; ra: pRectArray; numRectangles: 
Long) 

Examine [Accint] function(ServPort: port; RegOrStack: Boolean; Index: Integer; var Value: Integer): 
GeneralReturn 

ExceptVersion [Excepf] const = '3.4' 

Exec [Spawn] function(VAR ChildKPort: Port; VAR ChildDPort: Port; ProcessName: APath_Name; 
HisCommand: CommandBlock): GeneralReturn 

ExerciseParseEngine [CommandParse] function(ChPool: pCharacter_Pool; PoolLength: 
Char_Pool_lndex; procedure ReadPool(var Pool: pCharacter_Pool; var PLen: 
Char_PooLlndex); var inputs: pCommand_Word_List; var outputs: pCommand_Word_List; var 
switches: pCommand_Word_List): GeneralReturn 

ExitAIICmdFiles [CommandParse] procedure(var inF: pCommand_File_List) 

ExitCmdFile [CommandParse] procedure(var inF: pCommand_File_List) 

ExitGRError [Pascallnit] exception(GR: GeneralReturn) 

ExitP rog ram [Pasca//n/f] exception 

Exp [Real Functions] function(X: Real): Real 

Expand PathName [PathName] function(var WildPathName: Wild_Path_Name; ImplicitSearchList: 
Env_Var_Name): GeneralReturn 

ExpandWIndow [Sapph] procedure(ServPort: Window) 

ExpLarge [RealFunctions] exception(X: Real) 

EXPLICITDEALLOC [Accemrype] const = 

ExpSmall [Rea/Funcf/ons] exception(X: Real) 

Extension_List [PathName] type = string[Extension_String_Size] 

Extension_String_Size [Paf/]A/ame] const = 80 
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ExtractAIIRights [Accint] function(ServPort: port; Portlndex: Long; var PortRight: port; var 

PortType: Integer): GeneralReturn 
ExtractEvent [ModGetEvent] function(repMsg: Pointer; var vp: ViewPort; var k: KeyEvent): Boolean 
ExtractSimpleName [PathName] procedure(Name: Path_Name; var StartTerminal: integer; var 

StartVersion: integer) 
Failure [AccentType] const = AccErr+ 24 
FEarray [RunDefs] type = array[Filelndex] of FileEntry 
FHdr_Access_Rights_Offset[SesD/s/(De/s] const = 56 
File_Data [SesameDefs] type = pointer 
Flle_Header [SesameDefs] type = packed record FileSize: long; DataFormat: long; PrintName: 

Print_Name; Author: GroupJD; CreationDate: lnternal_Time; AccessID: GroupJD; AccessDate: 

InternaLTime; FHdr_RESERVED: array[56..64] of integer; end 
FileEntry [RunDefs] type = record FileType: LinkFileType; FileLocation: long; FileBlocks: long; 

FiieName: APath_Name; WriteDate: InternaLTime; Version: long; end 
Filelndex [RunDefs] type = O..RMAXFILE 
FileKInd [Stream] type = (BlockStructured, CharacterStructured) 
FileLength [Code] const = 100 
FileLength[SegDe/s] const = 100 
FileType [Stream] type = packed record Flag: packed record case integer of 0: (CharReady: 

boolean; FEoln: boolean; FEof: boolean; FNotReset: boolean; FNotOpen: boolean; 

FNotRewrite: boolean; FExternal: boolean; FBusy: boolean; FKind: FileKind; FLastWasEof: 

boolean; Funused: 0..63); 1: (skipl: 0..3; ReadError: 0..7); 2: (skip2: 0..15; WriteError: 0..3) end; 

EolCh, EofCh, EraseCh, NoiseCh: ControlChar; OmitCh: set of ControlChar; FileNum: integer; 

FIndex: integer; Length: integer; BIockNumber: integer; StreamP: pStreamF; LengthlnBIocks: 

integer; LastBlockLength: integer; SizelnWords: integer; SizelnBits: 0..16; ElsPerWord: 0..16; 

Element: record case integer of 1: (C: char); 2: (W: array[0..0] of integer) end end 
FIndExtendedFileName [PathName] function(var FiieName: Path_Name; Extension List: 

Extension_List; ImplicitSearchList: Env_Var_Name; FirstOnly: boolean): GeneralReturn 
FindExtendedPathName [PattiName] function(var PathName: Path_Name; ExtensionLlst: 

Extension.List; ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; var EntryType: 

Entry_Type; var NameStatus: Name.Status): GeneralReturn 
FindFileName [PathName] function(var FiieName: Path_Name; ImplicitSearchList: Env_Var_Name; 

FirstOnly: boolean): GeneralReturn 
FIndPathName [PathName] function{var PathName: Path_Name; ImplicitSearchList: Env_Var_Name; 

FirstOnly: boolean; var EntryType: Entry_Type; var NameStatus: Name_Status): GeneralReturn 
FindTypedName [PathName] function(var PathName: Path_Name; ExtensionLlst: Extension_Llst; 

ImplicitSearchList: Env_Var_Name; FirstOnly: boolean; var EntryType: Entry_Type; var 

NameStatus: Name_Status): GeneralReturn 
FindWildPathnames [PathName] function(var WildPathName: Path_Name; ImplicitSearchList: 

Env Var_Name; FirstOnly: boolean; NameFlags: Name_Flags; EntryType: Entry_Type; var 

FoundlnFirst: boolean; var DirName: APath_Name; var EntryList: Entry.List; var EntryList_Cnt: 

long): GeneralReturn 
FinEther [Er/7erL/ser] procedure 
First_User [yAufrtDefs] const = 1 
First Block [CFileDefs] type = record FileVersion: integer; FileSize: long; FileTlmeStamp: 

InternaLTime; SymbolAreaSize: long; TextAreaSize: long; DataAreaSize: long; BSSAreaSize: 

long; DestAddr: long; StartAddr: long; MainAddr: long; InitialLocalSize: long; 

StackBase Address: long; StackSizelnPages: long; end 
FirstltemNotDefined[E/7vMgrDefs] const = Env_Error_Base + 5 
FIRSTNONRESERVEDPORT[^ccenfrype] const = 3 
FirstUserlndex[Pasca//m7] const = 6 
FiveDeep [-Accenf Type] const = AccErr + 38 
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Floppy ResultStatus [lODefs] type = packed record StatusType: FloppyResultType; Unused: Bit6; 
case FloppyResultType of NoStatus: (); HeadChange, DriveSense, CmdResults: (Unit: Bit2; 
Head: Bit1; case FloppyResultType of DriveSense: (TwoSided: boolean; AtTrackO: boolean; 
DriveReady: boolean; WriteProtected: boolean; DriveFault: boolean); HeadChange, 
CmdResults: (NotReady: boolean; EquipFault: boolean; SeekEnd: boolean; IntrCode: (Normal, 
Abnormal, InvalidCmd, DriveRdyChange); case FloppyResultType of HeadChange: 
(PresentCylinder: Bit8); CmdResults: (NoAddrMark: boolean; NotWritable: boolean; NoData: 
boolean; Unusedl: Bit1; Overrun: boolean; DataError: boolean; Unused2: Biti; TrackEnd: 
boolean; NoDataAddrMark: boolean; BadTrack: boolean; ScanFail: boolean; ScanHit: boolean; 
WrongCylinder: boolean; DataCRCError: boolean; ControlMark: boolean; UnusedS: Biti; 
CyiinderlD: Bit8; HeadID: Bit8; SectorlD: Bit8; SectorSizeCode: Bit8))) end . 

FloppyResultType [/ODefs]type = (NoStatus, HeadChange, DriveSense, CmdResults) 

FlushEvents [ViewPt] function(ServPort: Viewport): boolean 

FNString [Code] type = String[FileLength] 

FNString [SegDefs] type = String[FileLength] 

FontCharWidthVector [ViewPt] procedure(ServPort: Viewport; ch: char; var dx: integer; var dy: 
integer) 

FontHeadOverhead [Sapp/7F//eDefs] const = #404 

FontMap [SapphFileDefs] type = tFontMapRec 

FontMapRec [SapphFileDefs] type = packed record Height: integer; Base: integer; Index: 
array[0..#177l of packed record Offset: 0..767; Line: 0..63; Width: integer; end; Filler: 
array[0..1] of integer; Pat: Array[0..0] of integer; end 

FontSize [ViewPt] procedure(ServPort: Viewport; var name: String; var PolntSize: integer; var 
Rotation: integer; var FaceCode: integer; var maxWidth: integer; var maxHeight: integer; var 
xOrigin: integer; var yOrigin: integer; var fixedWidth: boolean; var fixedHeight: boolean) 

FontStringWidthVector [ViewPt] procedure(ServPort: Viewport; str: VPStr255; firstCh: integer; 
lastch: integer; var dx: integer; var dy: integer) 

FontWordWidth [Sapp/7F//eDefs] const = 48 

ForBootFile [SpawnlnitFlags] const -^ FALSE 

Fork [Accint] functton(ServPort: port; var HisKernelPort: port; var HIsDataPort: port; var Ports: 
PtrPortArray; var Ports_Cnt: long): GeneralReturn- 

Fo rLib File [Spa wn/n/YF/ags] const = NOT ForBootRle 

FudgeStack [Code] const = #2000 

FulILn [Stream] function(var F: Text): Boolean 

Full Window State [Sappii] procedure(ServPort: Window; var leftx: integer; var topy: integer; var 
outerwidth: integer; var outerHeigh: integer; var rank: integer; var hasBorder: boolean; var 
hasTitle: boolean; var isListener: boolean; var name: ProgStr; var title: TitStr) 

FwdCode [EtherTypes] const = 2 

GeneralReturn [>Accen?rype] type = integer 

GetAbsoluteDef [CFileDefs] procedure(var BytePtr: long; var ByteAddress: long; var Name: LString) 

GetAbsoluteLocalDef [CF/7eDefe] procedure(var BytePtr: long; var ByteAddress: long; var Name: 
LString) 

GetAsmlong [CFileDefs] function(var ByteAddr: long): long 

Get AsmSt ring [CF/7eDefs] function(var ByteAddi*: long): LString 

Gets [Stream] procedure(var F: Filetype) 

GetBreak [SpiceJString] function: BreakTable 

GetC [Stream] procedure(var F: Filetype) 

GetChainHead [CF/7eDefs] procedure(var BytePtr: long; var AreaDesg: Bit8; var ByteAreaOff: long) 

GetCharacterPool [ExtraCmdParse] procedure(prompt: Cmnd_String; var InputFile: Text; var 
ChPool: pCharacter_Pool; var PoolLength: Char_PoolJndex) 

GetCmd [ExtraCmdParse] function(prompt: Cmnd_String; SearchTable: pWord_Search_Table; var 
CmdName: Cmnd_String; var inF: pCommand_File_List; var inputs: pCommand_Word_List; var 
outputs: pCommand_Word_Llst; var switches: pCommand_Word_List; var ErrorGR: 
GeneralReturn): integer 

GetCodeByte [CFileDefs] functlon(var ByteAddr: long): Bit8 

GetCodeWord [CF/7eDe/s] function(var ByteAddr: long): integer 
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GetConfirm [Ext raCmd Parse] function(prompt: Cmnd_String; def: integer; var switches: 

pCommand_Word_List): integer 
GetDateTime [Time] function{ServPort: port): lnternal_Time 
GetDiskPartitions [Accint] function(ServPort: port; interface: Disklnterface; log.unit: Interfacelnfo; 

var unitnum: Integer; var DevName: DevPartString; var PartL: Pointer; var PartL_Cnt: long): 

GeneralReturn 
GetEnvVariable [EnvMgr] function(ServPort: Port; Name: Env_Var_Name; SearchScope: 

Env_Var_Scope; var Variable: Env_Varlable; var Variable.Cnt: long; var VarType: 

Env_Var_Type; var ActualScope: Env_Var_Scope): GeneralReturn 
GetEvent~[V/ewPf] function(ServPort: Viewport; howWait: KeyHowVVait): KeyEvent 
GetEventPort [ModGetEvent] procedure(ServPort: Viewport; howWait: KeyHowWait; retPort: Port) 
GetFullViewport [ViewPt] function(ServPort: Viewport): Viewport 
GetFullWindow [Sapph] function(ServPort: Window): Window 
GetlconViewport [Sapph] procedure(ServPort: Window; var iconvp: Viewport; var width: integer; var 

height: Integer) 
GetlconWindow [Sapph] function(ServPort: Window): Window 
GetlOSIeeplD[/\ccCa//]function(varSleeplD: long): GeneralReturn 

GetlthWordPtr [CommandParse] function(i: long; CmndBlock: CommandBlock): pWord_String 
GetLlbraryDef [CFileDefs] procedure(yar BytePtr: long; var LibraryFileName: LString; var 

LibraryTimeStamp: InternaLTIme; var LibraryLoc: long) 
GetListenerWindow [Sapph] function(ServPort: Window): Window 
GetOf fsetDef [CFileDefs] procedure(var BytePtr: long; var WdOffsetAmt: long) 
GetParsedUserlnput [ExtraCmdParse] function(prompt:- Cmnd_String; var inF: 

pCommand_File_List; var inputs: pCommand_Word_List; var outputs: pCommand_Word_List; 

var switches: pCommand_Word_List): GeneralReturn 
GetPortlndexSlatus [Accint] function (ServPort: port; Portlndex: Long; var Backlog: Integer; var 

NWaitingMsgs: Integer; var EWaitingMsgs: Integer; var PorlRight: port; var PortType: Integer): 

GeneralReturn 
GetPortStatus [Accint] functlon(ServPort: port; PortRight: port; var Backlog: Integer; var 

NWaitingMsgs: Integer; var EWaitingMsgs: Integer- var Portlndex: Long; var PortType: Integer): 

GeneralReturn 
GetPrimaryDef [CFileDefs] procedure(var BytePtr: long; var SimKind: Bit8; var AreaDesg: Bit8; var 

Areadffset: long; var SymSize: long; var SymName: LString) 
GetRectangleParms [Accint] function(ServPcrt: port; RectPort: port; var BaseAddr: VirtualAddress; 

var ScanWidth: Integer; var BaseX: Integer; var BaseY: Integer; var MaxX: Integer; var MaxY: 

Integer; var IsFont: Boolean): GeneralReturn 
GetRegionCursor [ViewPt] procedure(ServPort: Viewport; regionNum: integer; var cursorlmage: 

CursorSet; var curslndex: integer; var cursFunc: CursorFunction; var track: boolean) 
GetRegionParms [ViewPt] procedure(ServPort: Viewport; regionNum: integer; var absolute: 

boolean; var speed: integer; var minx: integer; var maxx: integer; var miny: integer; var maxy: 

integer; var modx: integer; var posx: integer; var mody: integer; var posy: integer) 
GetScreen Parameters [Sapph] procedure(ServPort: Window; var width: integer; var height: 

integer) 
GetShellCmd [ExtraCmdParse] function(SearchTable: pWord_Search_Table; var CmdName: 

Cmnd.String; var inF: pCommand_File_List; var inputs: pCommand_Word_List; var outputs: 

pCommand_Word_List; var sv/itches: pCommand_Word_List; var ErrorGR: GeneralReturn): 

integer 
GetStringTime [Time] function(ServPort: port; TimeFormat: integer): String 
GetSysFont [ViewPt] function(ServPort: Viewport): Viewport 
GetUserName [Auth] function(ServPort: Port; UserlD: UserJD; var UserName: Auth_Var): 

GeneralReturn 
GetUserTlme [Time] function(ServPort: port): User_Time 
GetViewportBIt [ViewPt] function(ServPort: Viewport; x: integer; y: integer; var value: boolean): 

boolean 
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GetViewportRectangle [ViewPt] function (ServPort: Viewport; x: integer; y: integer; width: integer; 

height: integer; var Data: pVPIntegerArray; var Data_Cnt: long; var WordsAcross: integer; ux: 

integer; uy: integer): boolean 
GetVPRank [ViewPt] function(ServPort: Viewport): integer 
GetWinNames [Sapp/7] procedure{ServPort: Window; var names: pWinNameArray; var names_Cnt: 

long; var curListenlndex: integer) 
GetWinP recess [Sapph] function(ServPort: Window): Port 
GlobalProcedure [CF/VeDefs] const = 3 
GPBuffer [/Accemiype] type = packed array[1.. 8] of Bits 
GPIBDevCmdHead [lODefs] type = packed record Options: packed record SetlntOMask: boolean; 

SetlntlMask: boolean; OmitBusConfig: boolean; OmitUnListen: boolean; case boolean of true: 

(HoldOffOnEOI: boolean; unused2: Bit3); false: (OmitGoToStandby: boolean; WaitOnData: 

boolean; ForceEOI: boolean; unusedl: Biti); end; IntOMask: BitS; IntlMask: Bit8; PrimAddr: 

Bits; SecAddr: BitS; case boolean of true: (ReadCount: BitS); false: (); end 
GPIBSenseStatus [lODefs] type = packed record IntStatO: BitS; IntStatI: BitS; IntAddrStat: BitS; 

IntBusStat: BitS; IntAddrSwch: BitS; IntCmdPass: BitS; CurAddrStat: BitS; CurBusStat: BitS; 

CurAddrSwch: BitS; CurCmdPass: BitS; end 
GPIBWriteRegister [lODefs] type = packed record case RegNum: BitS of 0: (); 1: (RegVal: BitS) end 
GR_Error_Type [Sa/^Error] type = (GR_Warning, GR_Error, GR_FatalError) 
GRError [Pasca//n/f] exception(GR: GeneralReturn) 
GRErrorMsg [SaltError] procedure(GR: GeneralReturn; ER_Type: GR_Error_Type; ProgName: 

String; InMsg: PString; varOutMsg: PString) 
G roup JD [SesameDefs] type = long - 
GRStdErr [SaltError] function(GR: GeneralReturn; ER_Type: GR_Error_Type; InMsg: PString; var 

OutMsg: PString): boolean 
GRStdError [SaltError] procedure{GR: GeneralReturn; ER.Type: GR_Error_Type; InMsg: PString; 

var OutMsg: PString) 
GRWrlteErrorMsg [SaltError] procedure(GR: GeneralReturn; ER_Type: GR_Error_Type; ProgName: 

String; InMsg: PString) 
GRWriteStdError [SaltError] procedure(GR: GeneralReturn; ER_Type: GR_Error_Type; InMsg: 

PString) 
Header [AccentType] type = packed Array[0..15] of BitS 
Heap Address [Dynamic] type = record case integer of 0: (Offset: HeapOffset; Segment: 

HeapNumber); 1: (AnyPtr: Pointer); 2: (Longint: Long); end 
HeapNumber [Dynam/c] type = integer 
HeapOffset [Dynamic] type = integer 

IconAutoUpdate [Sapph] procedure(ServPort: Window; allowed: boolean) 
IconHeight [SapphDefs] const = 64 
I con Width [SapphDefs] const = 64 
IDCIrEtherFilter[Ef/7errypes] const = EtherlDBase + 3 
IDClrPupFilter [Ef/ierTypes] const = EtherlDBase + 6 
Identifier [Stream] type = string[ldentLength] 
IdentifyWindow [Sapp/7] procedure(ServPort: Window) 
IdentLength [Stream] const = S 
IdentTable [Stream] type = array[O..T] of Identifier 
I DGetEther Address [EtherTypes] const = EtherlDBase + 1 
IdNotDefined [Stream] exception(FileName: SName; Id: Identifier) 
IdNotUnique [Stream] exception(FileName: SName; Id: Identifier) 
IDRCIrEtherFilter[Ef/?errypes] const = EtherlDBase + 103 
IDRCIrPupFilter[E?/?errypes] const = EtherlDBase +106 
IDRecvEtherPacket[Ef/7errypes] const = EtherlDBase + 104 
IDRecvPupPacket[Ef/7errypes] const = EtherlDBase + 107 
IDRGetEtherAddress[Emerrypes] const = EtherlDBase + 101 
IDRSetEtherFiIter[Ef/7er7ypes] const = EtherlDBase + 102 
IDRSetPupFilter[Ef/?errypes] const = EtherlDBase +105 
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IDSendEtherPacket[Effterrypes] const = EtherlDBase + 4 

IDSendPupPacketiEfAjerlypes] const = EtherlDBase + 7 

IDSetEtherFilter [EtherTypes] const = EtherlDBase + 2 

IDSetPupFilter[E^/7e/'rypes] const = EtherlDBase + 5 

lllegalBacklog [AccentType] const = AccErr+ 10 

IllegalScan Width [^ccenffype] const = AccErr + 55 

Imp Array [RunDefs] type = packed array [0.. 4096] of Seglndex 

lmplndex[/?unDefs]type = 0..RMAXIMPORT 

ImpNode [Code] type = record Sid: SNArray; FilN: pFNString; XGP: integer; XSN: integer; Seg: 
pSegNode; Next: pImpNode end 

Impossible [ViewPt] exception(s: String) 

lmproperEntryType[SesameDefs] const = Sesame_Error_Base + 11 

in_out_separator_char[Com/77andParse] const = '-' 

InactiveSegment [Accen/Iype] const = AccErr + 47 

Index 1 Unquoted [PathName] function(S: Wild_Path_Name; C: char): integer 

Indexinterpose [Accint] function(ServPort: port; MyPort: Port; Hislndex: Long; var HisPort: Port): 
GeneralReturn 

Inf [Spfce_Sfr/ng] const = -32742 

InitAccInt [Accint] procedure(RPort: port) 

InltAuth [Auth] procedure(RPort: port) 

InitCmdFile [CommandParse] procedure(var InF: pCommand_File_List) 

InitCommandParse [CommandParse] procedure 

InitDynamic [Dynamic] procedure 

InitEnvMgr [EnvMgr] procedure(RPort: port) 

InitEther [Etherilser] procedure(RPort: port; Heap: integer) 

InitExceptions [Except] procedure 

Initial [Spice_String] function(Str1 , Sjr2: PStrIng): boolean 

InitializedSymbol [CFileDefs] const = 5 

Initio [/O] procedure(RPort: port) • . 

InitMsgld [Pascallnit] const = 32896 

InitMsgN [MsgN] procedure(RPort: port) 

InitMsgSize [Pasca//f;/7] const = W0RDSIZE(lnitMsgType)*2 

InltMsgType [Pascallnit] type = RECORD Head: Msg; DefaultType: TypeType; DeflnName: 
STRING[255]; DefOutName: STRING[255]; PassPortType: TypeType; PassedPorts: 
PtrPortArray; UWinSharedType: TypeType; UWInShared: Boolean; EMType: TypeType; EMPort: 
Port; WindowType: TypeType; UserWindow: Port; TSType: TypeType; UserTS: Port; 
WordCountType: TypeType; WordCount: long; WordDirlndexType: TypeType; WordDirlndex: 
long; WordArrayPtrType: TypeType; WordArrayPtrEltSize: integer; WordArrayPtrTName: 
integer; WordArray.Cnt: long; WordArrayPtr: pCharacter_Pool; ComputeEnvType: TypeType; 
ComputingEnvironment: Long; END 

InitNetlOMB [NetWMB] procedure(RPort: port) 

InitPascal [Pascallnit] procedure 

InitProcess [Pascallnit] procedure(AmlClone: BOOLEAN) 

InitProcMgr [ProcMgr] procedure(RPort: port) 

InitSapph [Sapph] procedure 

InitSesame [Sesame] procedure(RPort: port) 

InitSesDisk [SesD/s/(] procedure(RPort: port) 

InitStream [Stream] procedure 

InitTime [Time] procedure(RPort: port) 

InitTS [rs] procedure{RPort: port) 

InitViewPt [ViewPt] procedure 

InitWordSearchTable [CommandParse] procedure(var table: pWord_Search_Table; CaseSensitive: 
boolean) 

In Ports [Pascallnit] var: ptrPortArray 
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lnPorts_Cnt [Pascallnit] var: !ong 

Insert A IIRights [Accint] function(ServPort: port; Portlndex: Long; PortRight: port; PortType: 
Integer): GeneralReturn 

InsertChars [Spice_String] procedure(Source: PString; var Dest: PString; Index: Integer) 

InterceptSegmentCalls [Accint] function (Sen/Port: port; var OldSysPorts: PtrAIIPortArray; var 
OldSysPorts_Cnt: long; var SysPorts: PtrPortArray; var SysPorts_Cnt: long): GeneralReturn 

Interfacelnfo [AccentType] type = Packed Record Case Disklnterface Of ElO, CIO, FlopDrives: 
(Unit: Integer); ENet: (EAddr: Packed Array[0..2] of integer); End 

lnternal_Time [TimeDefs] type = record Weeks: integer; MSeclnWeek: long; end 

lntr[;4ccenfrype] const = AccErr+12 

InvalidateMemory [Accint] fu notion (ServPort: port; Address: VirtualAddress; NumBytes: Long): 
GeneralReturn 

InvalidDi rectory Version [SesameDe/s] const = Sesame_Error_Base + 6 

InvalidVersion [SesameDefs] const = Sesame_Error_Base + 5 

InxCase [Except] exception 

lO.Version [10] function(SeryPort: ServerNamePort): String 

lOBadBaudRate [lODefs] const = IOErr+ 12 

lOBadBufferSize [lODefs] const = lOErr + 35 

lOBadCmdBJkCount [/OOefs] const = !0Err + 8 

IOBadCylinderNumber[/ODefs] const = IOErr + 21 

lOBadDataByteCount [/ODefs] const = IOErr + 9 

lOBadHeadNumber [/ODefs] const = IOErr + 22 

lOBadPortReference [/ODe/s] const = IOErr + 6 

lOBadRegisterNumber [/ODefs] const - iOErr+10 

IOBadSectorNumber[/OOe/s] const = IOErr + 20 

lOBadTrack [/ODe/s] const = IOErr + 31 

lOBadUserEventPort [/ODe/s] const = iOErr + 5 

lOBaseMsglD [/OOe/s] const = 4000 

lOCircBiifOverFlov/ [lODefs] const = IOErr+ 17 

IGCmdBlk [tODefs] type = packed record CmdIDTag: long; case integer of 0: (case integer of 0: 
(CmdByte: packed array[0..0] of BitS); 1: (CmdWord: packed array[0..O] of integer); 2: 
(WriteReg: packed array[stretch(0)..stretch(G)] of packed record RegNum: BitS; RegVal: Bits 
end)); 1: (case lOCommand of lOSetAttention: (GPIBEnableATN: boolean); lOSetStream: 
(GP'lBEnableStream: boolean: GPIBBiockingFactor: integer); lOSetBufferSize: (GPIBBufferSize: 
long); lOWriteRegisters: (GPIBWriteReg: packed array[stretch(0)..stretch(0)] of 
GPIBWriteRegister); lODevRead, lODevWrite: (GPIBDevCmdBlk: GPIBDevCmdHead)); 2: (case 
iOCommand of lOSetAttention: (RS232EnableATN: boolean); lOSetStream: 
(RS232EnableStream: boolean; RS232BlockingFactor: integer); lOSetBufferSize: 
(RS232BufferSize: long); lOSetBaud: (RS232TxBaud: BitS; RS232RxBaud: BitS); 
lOWriteRegisters: (RS232WriteReg: packed array[stretch(0)..stretch(0)] of SIOWriteRegister)); 
3: (case lOCommand of lOSetAttention: (SpeechEnableATN: boolean); lOSetBufferSize: 
(SpeechBufferSize: long); lOSetBaud: (SpeechTxRate: integer); lOWriteRegisters: 
(SpeechWriteReg: packed array[stretch(0)..stretch(0)] of SIOWriteRegister)); 4: (case 
lOCommand of lOSetAttention: (FioppyEnableATN: boolean); lOSetDensity: (FIoppyDensity: 
DensityType); lORead, lOWrite, lOFormat, lOSeek, lORecalibrate, lOReadlD, lOSenseDrlve: 
(FloppyUnit: BitS; FloppyHead: BitS; case lOCommand of lORead, lOWrite, lOFormat, lOSeek: 
(FloppyCylinder: BitS; case iOCommand of lORead, lOWrite: (FloppySector: BitS); lOFormat: 
(FloppyFmtData: Bits)))) end 

lOCommand [lODefs] type = (lOSense, lOReset, lOWriteRegisters, lOFIushlnput, lOFIushOutPut, 
lORead, lOWrite, lOWrlteEOI, lOReadHiVol, lOWriteHiVol, lODevRead, lODevWrite, lOSetBaud, 
lOSetStream, iOSetAttention, lOAbort, lOSuspend, lOResume, lOSeek, lORecalibrate, 
lOFormat, lOReadlD, lOSenseDrive, lOSetDensity, lOSetBufferSize, lONullCmd) 

lOCylinderMisMatch [/ODefs] const = IOErr + 32 

lODataCRCError [lODefs] const = IOErr + 29 

lODeviceNotFree [/ODefs] const = IOErr + 3 

lODevlceNotReady [/ODefs] const = IOErr + 24 



18 



IODeviceNotWritable[/ODefs] const = IOErr + 27 

lODriveReadyChanged [/ODefs] const = IOErr + 33 

lOEBSE [e/ierT/pes] const = #4 

IOEFUZ[a/?e/'rypes]const= #5 

\0E10C [Et he rTy pes] const = #0 

IOEndOfFrame[/ODefs] const = IOErr+18 

lOEndOf Input [lODefs] const = IOErr+ 19 

lOEPTL [fmerrypes] const = #2 

IOERNT[Emer7ypes]const= #3 

IOErr[/ODefs] const = lOBaseMsglD 

IOETIM[Ef/7errypes]const= #1 

lOEvent [lODefs] type = (lOReply, AsyncData, Attention, Distress, Acknowledge) 

IOFramingError[/ODefs] const = IOErr+16 

lOGetTime [Clock] function: long 

IOHeaderCRCError[/ODefs] const - IOErr + 30 

lOlllegalCommand [/ODefs] const = IOEr*r + 7 

IOInvalidlOPort[/ODefs] const = IOErr + 4 

lOMessage [lODefs] type = record Head: Msg; Body: array[0..1023] of integer; end 

lOMissingDataAddrMark [/ODefs] const = IOErr + 25 

lOMissingHeaderAddrMark [/ODefs] const = IOErr + 26 

lONoDataFound [lODefs] const = IOErr+ 13 

lONotEnoughData [/ODefs] const = IOErr + 34 

lONotEnoughRoom [lODefs] const = IOErr+ 11 

lOOverRun [/ODefs] const = IOErr+14 

lOParityError [/ODefs] const = IOErr+15 

lOSectorNotFound [/ODefs] const = IOErr + 28 

lOSenseStatusBlk [lODefs] type = packed record StatusCnt: Bit8; case integer of 1: (GPIBStatus: 

GPIBSenseStatus); 2: (SlOStatus: SlOSenseStatus); 3: (FloppyStatus: FloppyResultStatus); 0: 

(case integer of 1: (StatusByte: packed array[stretch(1)..stretch(1)] of BitS); 2: (StatusWord: 

packed array[stretch(1)..stretch(1)] of integer); 3: (SByte: packed array[stretch(1)..stretch(12)] 

of Bit8)) end 
lOStatusBlk [lODefs] type = packed record CmdiDTag: long; HardStatus: integer; SoftStatus: 

integer; CmdBytesTransferred: long; DataBytesTransf erred: long; DeviceStatus: 

lOSenseStatusBlk; end 
lOSuccess [lODefs] const = SUCCESS 
lOTimeOut [/ODefs] const = IOErr + 2 
lOUndefinedError [/ODefs] const = IOErr+1 
lOUndeterminedEquipFault [/ODefs] const = IOErr + 23 
IsChild [/^ccemfype] const = AccErr + 36 
IsParent [Accenf Type] const = AccErr + 35 
isPattern [Pl\/}atch] functlon(var str: pms255): boolean 

IsQuotedChar [PathName] function(S: Wild_Patfi_Name; Index: Integer): boolean 
IsStreamDevlce [Stream] function(S: SName): integer 
KBFIushBoardOutput [Sfream] procedure(var F: FileType) 
KERNELPORT[/\ccenfrype] const = 1 

KeyEvent [SapphDefs] type = record Cmd: 0..255; Ch: char; region: Integer; X, Y: integer; end 
KeyHowWait [Sapp/7Defs] type = (KeyWaitDiffPos, KeyDontWait, KeyWaitEvent) 
KeyKind [SapphFileDefs] type = (Standard, Control, Mouse, Nonstandard) 
KeyMap [SapphFileDefs] type = packed record hashkey: KeyState; cmd: 0..255; chval: char; escty: 

EscKind; next: O..MAXMAP; region: 0..WILDREGION; end 
KeyState [SapphFileDefs] type = packed record case integer of 1: (code: 0..#177; cntrlon: 

boolean; special: boolean; EscCI: 0..#7; mbuttons: 0..#17); 2: (fullCode: 0..#777; 

escCIAndMButtons: 0.. # 1 77); 3: (ks: integer); end 
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KeyTransTab [SapphFileDefs] type = packed record Version: 0..255; CmdState: 0..255; 

Rav^KeyBoard: boolean; EscState: 0..7; NumMaps: O..MAXMAP; HashMask: integer; Len: 

integer; Class: packed array[O..MaxCode] of KeyKind; Map: packed array[1..1] of KeyMap; end 
KeyTranVersion [SapphFileDefs] const = 3 
KOEName [CFileDefs] function{x: Bit8): string 
LandScapeBitHeight [SapphDefs] const = 1024 
LandScapeBitWidth [Sapp/7Defs] const = 1280 
Language [Code] ^/pe = (Pascal, Fortran, imp) 
Language [SegDe/s] type = (Pascal, Fortran, Imp) 
LargeNumber [Stream] exception(FileName: SName) 
Large Real [Stream] exception(FileName: SName) 
LastRecMsg [IPCRecordlO] van RRecMsg 
LibraryDef[CF//eOefs] const = 90 

LineFunct [SapphDefs] type = (DrawLine, EraseLihe, XORLIne) 

LinkFileType [RunDefs] type = (SegFile, RunFile, DataFile, SymsFileType, QMapFlleType) 
LinkTypeStr [ALoad] function(typ: LinkFileType): string 
ListLoggedlnUsers [Auth] function(ServPort: Port; var UserList: Logged_User_List; var 

UserList_Cnt: long): GeneralReturn 
LMsg [AccCall] type = record H: Msg; D: array[1 ..MAXMSGDATA] of integer; end 
Ln [RealFunctions] function(X: Real): Real 

Load Font [ViewPt] function{ServPort: Viewport; fileName: VPStr255): Viewport 
LoadVPCursors [ViewPi] function(ServPort: Viewport; fileName: VPStr255; var numCursors: 

integer): CursorSet 
LoadVPPicture [ViewPt] function(ServPort: Viewport; fileName: VPStr255; width: Integer; height: 

integer): Viewport 
LocalLabe![CF/7eDe/s]const = 6 
LocalProcedure[CF//eDefs] const = 2 
LOCALPT [4ccemr/pe] const = 2 
LockPorts [AccCalf] function(LockThem: boolean; Ports: ptrLPortArray; PortsCount: long): 

GeneralReturn ' - 

Log1 [RealFunctions] function(X: Real): Real 
Logged User [AuthDefs] type = record UserlD: UserJD; UserName: Auth_Var; MachineName: 

ALrth_Var; End 
Logged_User_Array [Aaf/]Defe]t>'pe = array[0..0] of Logged_User 
Logged_User_List[Auf/7De/s]type = tLogged_User_Array 
LoginUser [Auth] function(ServPort: Port; UserName: Auth_Var; Password: Auth_Var; 

MachineName: Auth_Var; var UserAuthPort: Port; var UserRec: UserRecord): GeneralReturn 
LOGMSGS [AccCall] const = false 
Logout User [Auth] functlon(ServPort: Port): GeneralReturn 
LogSmali [flea/Ft/ncf/ons] exception(X: Real) 

Lookup [MsgN] function(ServPort: Port; PortsName: string; var PortsID: Port): GeneralReturn 
Lop [Spice_String] function(var Str: PString): PStrIng 
LPortArray [Accenffype] type = array[stretch(0)..stretch( #77777)] of Port 
LString [CF/7eDe/s] type = String[255] 
M_CHILDFORKREPLY [AccentType] const = #100+ #11 
M_DEBUGIVISG [AccentType] const = # 1 00 + # 1 2 
M_GENERALKERNELREPLY [Accemrype] const = #100 + 6 
M_KERNELMSGERROR [AccentType] const = #100 + 7 
M_MSG ACCEPTED [Accenf Type] const = #100 + 2 
M_OWNERSHIPRIGHTS [AccenfType] const = #100 + 3 
M_PARENTFORKREPLY [Accenffype] const = #100+ #10 
M_PORTDELETED [Accenf Type] const =# 100 + 1 
M_RECEIVERIGHTS [Accemlype] const = #100 + 4 
Machlne_Name [AuthDefs] type = String[255] 
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MachinelnfoRec [Bootlnfo] type = packed record case boolean of false: (int: integer); true: 

(WCSSize: 0..15; Reserved: 0..3; IsPortrait: Boolean; BoardRev: 0..31; OldZSO: boolean; 

CMUNet: boolean; Reserved2: 0..3) end 
MAINKLUDGE[Rur7Defs] const = 255 
MakeVlewport [ViewPt] function(ServPort: Viewport; x: integer; y: integer; w: integer; h: integer; 

rank: integer; memory: boolean; courteous: boolean; transparent: boolean): Viewport 
MakeWinListener [Sapp/?] procedure(ServPort: Window) 
MapFull [/Accen?rype] const = AccErr + 25 
MAPNIL [Sapp/?F//eDefs] const = 0. 
Max_QmapRoutines [QMapDefs] const = 251 
Max_SymRoutines [SymDe/s] const = 251 
Max_Users[/\umDefs] const = 1023 
MAX BACKLOG [>Accemrype] const = 63 
MaxCmndSt ring [CommandParse] const = 255 
MaxCode [Sapp/7F/7eDefs] const = 127 + 16 
MaxCoord[Sapp/?De/s] const = 16000 
MAX DEVICES [AccentType] const = 5 
MAX DISKS [AccentType] const = 4 
MAXDPCHARS [.Accenfrype] const = 25 
MaxEtherWords [E?/7errypes] const = 748 
MAXLOGMESS [/\ccCa//] const ^^ 20 
MAXMAP[Sapp/7F/7eDefs] const = 511 
MAXMSGDATA [/IccCa//] const = 20 
MaxNumRectangles [SappA7Defs] const = 256div4 
MAXPARTCHARS [AccentType] const --= 8 
MAXPARTITIONS [Accenf Type] const = 10 
MAX PORTS [/^ccenf Type] const = 256 
MAXPROCS [AccentType] const = 63 
M ax PSt rings ize [Sp/ce_Sf r/ng] const = 255 
MaxPupWords [EtherTypes] const = 533 
MaxSignal [ProcA/fgrDefs] const = SignalBase + 63 
MaxSize [Sapp^De/s] const = 16000 
MemFault [yAccenfrype] const = AccErr + 6 
MemProtection[/lccenfrype]type = READONLY..READWRITE 
MessagesWaiting [AccCall] function(MsgType: long; var Ports: ptrLPortArray; var PortsCount: 

long): GeneralReturn 
MicroFailure [/Accenffype] const = AccErr + 41 
Microseconds [/Accenf Type] type = long 
MILLIPERTIC [Sapp^F/VeOefs] const = 17 
M in Coo rd [Sapp/)De/s] const = -16000 
MlnEtherWords [Ef/?er7ypes] const = WordSize{EtherHeader) 
M In Pup Words [Ef/7er7ypes] const = WordSize(PupHeader) + 1 
MinSignal [ProcMgrDefs] const = SignalBase 
ModlfyRegicn [ViewPt] procedure(ServPort: Viewport; regionNum: Integer; leftx: integer; topy: 

integer; width: integer; height: integer) 
ModifyVP [ViewPt] procedure(ServPort: Viewport; newlx: integer; newty: integer; newwidth: integer; 

newheight: Integer; newrank: integer; wantVpChEx: boolean) 
ModlfyWindow [Sapph] procedure(ServPort: Window; newleftx: integer; newtopy: integer; 

newouterwidth: integer; newouterheight: integer; newRank: integer) 
ModNameLength [RunDefs] const = 19 
ModSt ring [RtvnDefs] type = String[ModNameLength] 
Move Words [AccCall] function(SrcAddr: VirtualAddress; var DstAddr: Virtual Address; NumWords: 

long; Delete: boolean; Create: boolean; Mask: long; DontShare: boolean): GeneralReturn 
M Parity [Except] exception 
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Msg [AccentType] type = record SimpleMsg: boolean; MsgSize: long; MsgType: long; LocalPort: 

Port; RemotePort: Port; ID: long; end 
MsgClrEtherFilter [EtherTypes] type = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgClrPupFilter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgEtherPacket [EtherTypes] type = RECORD Head: Msg; TPacket: TypeType; Packet: 

EtherPacket; END 
MsgGetEther Address [EtherTypes] type = RECORD Head: Msg END 
Msg Index [Pascal Init] const = 5 
Msglnterrupt [/Accenf Type] const = AccErr + 43 
MsgLog [AccCall] type = record Init: integer; MsgsSent: long; MsgsRec; long; NxtMsg: integer; 

LMsgs: array[0..MAXLOGMESS] of record Sent: boolean; InProg: boolean; GR: GeneralReturn; 

M: LMsg; end; end 
MsgPacket [EtherTypes] type = RECORD Head: Msg; TPacket: TypeType; END . 
MsgPortStatus [MsgN] function(ServPort: Port; PortsID: Port; var GlobalPort: long; var Owner: long; 

var Receiver: long; var SrcID: long; var SeqNum: long; var NetWaiting: boolean; var 

NumQueued: integer; var Blocked: boolean; var Locked: boolean; var RecvQueue: integer; var 

DataOffset: long; var InSrcID: long; var InSeqNum: long): GeneralReturn 
MsgPupPacket [EtherTypes] type = RECORD Head: Msg; TPacket: TypeType; Packet: PupPacket; 

END 
MsgRCIrEtherFilter [EtherTypes] type = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TAnswer: TypeType; Answer: BOOLEAN END 
MsgRCIrPupFilter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TAnswer: TypeType; Answer: Boolean END 
Msg RecvEthe rPacket [EmerTypes] type = MsgEtherPacket 
msgRecvPupPacket lEtherTypes] type — MsgPupPacket 
MsgRGetEtherAddress [EtherTypes] type = RECORD Head: Msg; TEther Address; TypeType; 

EtherAddress: INTEGER END 
MsgRSetEtherFilter [EtherTypes] \>/!pe = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TAnsv^er: TypeType; Answer: BOOLEAN END 
MsgRSetPupFllter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TAnswer: TypeType; Answer: Boolean END 
MsgSendEtherPacket [EfA^erlypes] type = MsgEtherPacket 
Msg Send Pup Packet [Ef/7errypes] type = MsgPupPacket 
MsgSetEtherFilter [EtherTypes] type = RECORD Head: Msg; TTyp: TypeType; Typ: INTEGER; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgSetPupFilter [EtherTypes] type = RECORD Head: Msg; TSocket: TypeType; Socket: Long; 

TProcessPort: TypeType; ProcessPort: Port END 
MsgTooBig [Accenf Type] const = AccErr + 20 
MulOvfl [Excepf] exception 

MultlLevelProgress [WindowUtils] procedure(Level: integer; Current, Max: Long) 
MultrStreamProgress [WindowUtils] procedure(Level: integer; var F: File) 
Name_Flags [SesameDefs] type = 0!.#3 
Name_Status [SesameDefs] type = 0..#7 
Name Am b iguou s [ProcMgrDe/s] const = ProcMgrBase + 8 
NameBase [A/ameErrors] const = 1000 
NameNotCheckedIn [A/ameErrors] const = NameBase+1 
NameNotFound [SesameDefs] const = Sesame_Error_Base + 1 
NameNot You rs [NameErrors] const = NameBase + 
NameServerPort [Pascallnit] var: port 

NetlOMBRecvServer [NetWMBRecvServer] function(lnP, RepP: POINTER): boolean 
Net_Version [NetlOMB] function{ServPort: ElOPort): String 
NetFail [AccentType] const = AccErr+ 11 
NETWORKTROUBLE[Accenfrype] const = 2 
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NewP [Dynamic] procedure(S: HeapNumber; A: integer; var Where: pointer; L: integer) 

NevvToOldTime [OldTimeStamp] function(NewTime: lnternal_Time): TimeStamp 

NextExtension [PathName] function(var EList: Extension_List): string 

NextOp [Except] exception 

NFIag_Deleted [SesameDe/s] const = #000001 

NFIag_NoNormal[SesameDe/s] const = #000002 

NFlag_RESERVED [SesameDefs] const = #177774 

NilPolnter [Dynamic] exception 

No_User [/\uf/?Defs] const = 

No Access [SesameDefs] const = Sesame_Error_Base + 9 

NoAvallablePages[^ccenfrype] const = AccErr + 37 

NoChildren [ProcMgrDefs] const = ProcMgrBase + 6 

NoMorePorts[4ccem7/pe] const = AccErr + 9 

NO REPLY [AccentType] const = 4 

NORMALMSG [/Accenf Type] const = 

NormMsg [Except] exception 

NotADirectory [SesameDefs] const = Sesame_Error_Base + 1 2 

NotAFIIe [SesameDefs] const = Sesame_Error_Base + 8 

NotAFont [Accenf Type] const = AccErr + 58 

NotAnlPCCall [AccentType] const = AccErr+ 17 

Not A Port [AccentType] const = AccErr + 7 

NotASystemAddress [/^ccenf Type] const = AccErr + 50 

NotAUserAddress[>Accenfrype] const = AccErr + 51 

NotBoolean [Stream] exception(FileName: SName) 

NotCurrentP recess [AccentType] const = AccErr + 28 

NotEnough Room [/Accenf Type] const = AccErr + 16 

Notldentifier [Stream] exception(FileName: SName) 

NotNumber [Stream] exception (FileName: SName) 

NotOpen [Stream] exception 

NotPortReceiver[/\ccenffype] const = AccErr+14 

Not Real [Stream] exception(FileName: SName) 

NotReset [Stream] exception(FileName: SName) 

NotRew rite [Stream] exception(FileName: SName) 

NotSamePartition [SesameDefs] const = Sesame_Error_Base + 1 

NotTextFile [Stream] exception(FileName: SName) 

NotYourChild [AccentType] const = AccErr + 21 

NStat_Deleted [SesameDefs] const = #000001 

NStatlHigh [SesameDefs] const = #000002 

NStat_Low [SesameDefs] const = #000004 

NStatlRESERVED [SesameDefs] const = #177770 

NTIMERS [SapptiFileDefs] const = 20 

Null_CommandBlock [CommandDefs] function: CommandBlock 

NULLPORT [yAccenf Type] const = 

NULLViewPort[Sappf7Defs] const = NullPort 

NullWindow [SapptiDefs] const = NullPort 

NUMMSGTYPES [Accenf Type] const = 2 

NUMPRIORITIES [AccentType] const = 16 

NumProgressBars[Sappf)Defs] const = 2 

NUMQUEUES [/^ccenf Type] const = NUMSLEEPQS + NUMPRIORITIES + 5 

NUMSLEEPQS[Accenfrype] const = 32 

OFFSCREEN [Sapp/7Defs] const = -32002 

OFFSETBASE[CF//eDefs] const = 16000 

Offset D ef [CF/7eDefs] const = 11 
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OldCurrentTime [OldTimeStamp] function: TimeStamp 

OldToNewTime [OldTimeStamp] function(OidTime: TimeStamp): InternaLTime 

OpenCmdFile [CommandParse] function(FileName: pWord_String; var inF: pCommand_File_List): 

GeneralRetum 
OpenIO [10] function(ServPort: ServerNamePort; var lOPort: ServerlOPort; UserPort: UserEventPort): 

GeneralRetum 
Other [AccentType] const = AccErr+ 13 
OutOflmagSegments [/AccenfType] const = AccErr + 49 
OutOflPCSpace [AccentType] const = AccErr + 23 
OutOf RectangleBounds [/^ccenfType] const = AccErr + 54 
OUTREGION [Sapp/?De/s] const = 
OvflLI [Except] exception 
OvrReal [Except] exception 
Owner_Read_Access [SesO/s/(Defs] const = #1 
Owner_Write_Access [SesD/s/cDefs] const = #2 
PacketBytes [Ef/?errypes] const = 2 *WordSize(Msg Packet) 

Pad [SpiceJString] function(Str: PString; TotalLen: integer; PadCh: Ciiar; Where: integer): Pstring 
PAGEBITS [AccentType] const = 8 
PAGEBYTESIZE [AccentType] const = 5t2 
PAGEWORDSIZE [-AccenfType] const = PAGEBYTESIZE div 2 
ParseChPool [CommandParse] function(ChPool: pCharacter_Pool; PoolLength: Char_PoolJndex; 

var inputs: pCommand_Word_List; var outputs: pCommand_Word_List; var switches: 

pCommand_Word_List): GeneralRetum 
ParseCommand [CommandParse] function(var inputs: pCommand_Word_List; var outputs: 

pCommand_Word_List; var switches: pCommand_Word_List): GeneralRetum 
ParseEther Address [EtherUser] function(MsgP: pMsgRGetEtherAddress): INTEGER 
ParseEtherClear [EtherUser] function(MsgP: pMsgRCIrEtherFilter; VAR Typ: INTEGER): BOOLEAN 
ParseEtherFilter [EtherUser] function(MsgP: pMsgRSetEtherFllter; VAR Typ: INTEGER): BOOLEAN 
ParseEtherPacket [EtherUser] function(MsgP: pMsgRecvEtherPacket; Packet: POINTER): 

INTEGER 
ParselllegaiCharinEnvNam [CommandDefs] const = CmdParse_Error_Base + 1 9 
ParselHegaiCharlnlnRed[Comma/7dDefe] const = CmdParse_Error_Base + 22 
ParseniegaiCharinOutRed [CommandDe/s] const = CmdParse_Error_Base + 23 
ParselllegalCharlriQuoted [CommandDe/s] const = CmdParse_Error_Base + 20 
ParseHlegalCharlnShPara [CommandDefs] const = CmdParse_Error_Base + 24 
ParselllegalCharlr^SwNanr^e [CommandDefs] const = CmdParse_Error_Base+ 17 
ParselllegalCharlnSwVal [CommandDefs] const = CmdParse_Error_Base+18 
ParselnternalFault [CommandDefs] const = CmdParse_Error_Base + 15 
ParseOnlyCmd Allowed [CommandDefs] const = CmdParse_Error_Base + 21 
ParsePupCIear [EtherUser] function(MsgP: pMsgRCIrPupFilter; VAR Socket: Long): BOOLEAN 
ParsePupFliter [EtherUser] function(MsgP: pMsgRSetPupFilter; VAR Socket: Long): BOOLEAN 
ParsePupPacket [EtherUser] procedure(MsgP: pMsgRecvPupPacket; PupPacket: POINTER) 
ParseWordTooLong [CommandDefs] const = CmdParse_Error_Base + 16 
PartData [SesDiskDefs] type = record PartName: DevPartString; DevName: DevPartString; 

PartRootDir: SegID; PartNumFree: long; PartMounted:' boolean; PartStart: DiskAddr; PartEnd: 

DiskAddr; PartKind: PartltionType; PartExUse: boolean; end 
PartDisMount [Accint] function(ServPort:port): GeneralRetum 
PartDList[SesD/s/cDefs]type = array[1..MAXPARTITIONS] of PartData 
Partlnfo [AccentType] type = record PartHeadFree: DiskAddr; PartTailFree: DiskAddr; PartlnfoBlk: 

DiskAddr; PartRootDir: SegID; PartNumOps: integer; PartNumFree: long; PartlnUse: boolean; 

PartMounted: boolean; PartDevice: integer; PartStart: DiskAddr; PartEnd: DiskAddr; PartKind: 

PartltionType; PartName: PartString; PartExUse: boolean; Unused: long; PartDiskRel: boolean; 

end 
PartitionFull [AccenfType] const = AccErr + 59 
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PartitionType [AccentType] type = (Root, UnUsed, Segment, PLX) 

PartList[^ccenf7ype]type = array[1..MAXPARTITIONS] of Partlnfo 

PartMount [Accint] function(ServPort: port; PartName: DevPartString;.ExUse: Boolean; var Rootid: 

SegID; var PartKind: PartitionType; var PartPort: port; var PartS: DiskAddr; var PartE: DiskAddr): 

General Return 
PartString [/^ccenf Type] type = string[MAXPARTCHARS] 
PascalProcedure [CF/7eDefs] const = 1 
PASCALRECORD[/PCRecord/0] const = #12345 
PassType [AuthDefs] type = Long 

PassWordlncorrect [AufArDefs] const = Auth_Error_Base + 2 
PastEof [Stream] exception(FileName: SName) 
Path_Name [PathName] type = string[Path_Name_Size] 
Path_Name_Size [SesameDefs] const = 255 
PattDebug [PMaich] procedure(v: boolean) 
Pattern [Sapp^F/VeDefs] type = tPatternMap 
PatternMap [Sapp/7F/7eDefs] type = array[0..63, 0..3] of integer 

PattMap [PMatch] function(var str, inpatt, outpatt, outstr: pms255; fold: boolean): boolean 
PattMatch [PMatch] function(varstr, pattern: pms255; fold: boolean): boolean 
pBit32 [AccentType] type = tBit32 

pCharacter_Pool [Comma/icfDefs] type = tCharacter_Pool 
PCInData[CF/7eDefs] const = DataState 
PCInData2 [CF/7eDe/s] const = Data2State 
PCInText [CFileDefs] const = TextState 
pCmnd_String[Co/nmancfParse]type = tCmnd_String 
pComrnand_File_List [CommandParse] type = tCommand_File_Llst 
pCommand_V/ord_List [Commanc/Parse] type = tCommand_Word_Ust 
PCStateName [CF/7eDe/s] function(x: Bit8): string 
pCu rsor A rray Rec [Sapp/?F/7eD6/s] type = tCursorArrayRec 
pE10Message[Ef/7ertODe/s] type = tElOMessage 
pE10Packet[Emer70De/s]type = tElOPacket 
pEtherPacket [EfA7errypes]type = tEtherPacket 
pFEarray [f?t/nDefs]type = tFEarray. 
pFirstBlock [CF/7eDefs] type = tFirstBlock 
pFNStrmg[Cocfe]type = tFNString 
PhysicalAddress [AccentType] type = long 
pi mp A r ray [Ht;nDe/s] type = tImpArray 
plmpinfo [SegDe/s] type = tClmplnfo 
pImpNode [Code] type = tImpNode 
plOCmdBlk [/ODefs] type = tlOCmdBIk 
plOMessage[/ODefs]type = tlOMessage 
pKeyTab [SapphFileDefs] type = tKeyTransTab 
pLMsg [AccCall] type = tLMsg 
PMAddCtlWindow [ProcMgr] functlon(ServPort: port; CtlWindow: window; NewCtlWIndow: 

window): GeneralReturn 
PMBroadcast [ProcMgr] function{ServPort: port; s: string):'GeneralReturn 
PMChangeGroup [ProcMgr] function(ServPort: port; ProcPort: port; NewWindow: window): 

GeneralReturn 
PM Debug [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 
PMDebugProcess [ProcMgr] function(ServPort: port; ProcPort: port;Reason: long): GeneralReturn 
PMGetProcPorts [ProcMgr] function(ServPort: port; ProcPort: port; var hisWindow: window; var 

hisTypescript: typescript; var hisEMConn: port): GeneralReturn 
PMGetStatus [ProcMgr] function(ServPort: port; ProciD: string; var Stats: StatList; var Stats_Cnt: 

long): GeneralReturn 
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PMGetTimes [ProcMgr] function{ServPort: port; ProcPort: port; var LoadTime: long; var RunTime: 

long; var ElapsedTime: long): GeneralReturn 
PMGetWaitID [ProcMgr] function (ServPort: port; ProcPort: port; var WaitID: long): GeneralReturn 
PMGroupSignal [ProcMgr] procedure(ServPort: port; CtlWindow: window; Signal: SignalName) 
PMIndex [Pasca//n/Y] const = 4 

PMKill [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 
PM Po rt [Pascal! nit] var: port 

PMProcessSignal [ProcMgr] procedure(ServPort: port; ProcPort: port; Signal: SignalName) 
PMRegisterP recess [ProcMgr] function(ServPort: port; HisKPort: port; HisDPort: port; ProgName: 

string; HisWindow: window; HisTypescript: typescript; EMConn: port; Parent: port): 

GeneralReturn 
PMRemoveCtlWindow [ProcMgr] function(ServPort: port; CtlWindow: window): GeneralReturn 
PMResume [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 
pms255 [PMatch] type = String[255] 
PMSaveLoadTime [ProcMgr] function (ServPort: port; ProcPort: port; LoadTime: long): 

GeneralReturn 
PMSetDebugPort [ProcMgr] function(ServPort: port; ProcPort: port; DebugPort: port; 

DebugSignalOnly: boolean): GeneralReturn 
PMSetPriority [ProcMgr] function(ServPort: port; ProcID: string; priority: integer): GeneralReturn 
PMSetSignal [ProcMgr] function(ServPort: port; ProcPort: port; Signal: SignalName; Action: 

SignalAction): GeneralReturn 
PMSetSignalPort [ProcMgr] function(ServPort: port; ProcPort: port; SignalPort: port): 

GeneralReturn 
pMsgCirEtherFnter[Emerrypes]type = tMsgClrEtherFilter 
pMsgClrPupFilter[Ef/7errypes]type = tMsgClrPupFilter 
pMsgGetEtherAddress [Ef/^erT/pes] type = tMsgGetEtherAddress 
pMsgLog [AccCall] type = tMsgLog 

pMsgRCIrElherFilter[e/?er7y'pes]type = tMsgRClrEtherFilter 
pMsgRCIrPupFiiter [E/^errypes]type = tMsgRCIrPupFiiter 
pMsgRecvEtherPacket [Ef/?errypes]type = tMsgRecvEtherPacket 
plV1sgRecvPupPacket[tf/7errypes]type = tMsgRecvPupPacket 
pMsgRGetEtherAddress[E//7erTypes]type = tMsgRGetEther Address 
pMsgRSelElh8rFilter[Ef/7errypes]type = tMsgRSetEtherFilter 
pMsgRSetPupFHter[Ef/7erTypes]type = tMsgRSetPupFilter 
pMsgSendEtherPacket[Ef/7errypes]type = iMsgSendEtherPacket 
pMsgSendPupPacket[E//?errypes]type = tMsgSendPupPacket 
pMsgSetEtherFilter[Ef/?errypes]type = tMsgSetEtherFilter 
pMsgSetPupFilter [EtherTypes] type = tMsgSetPupFilter 
PMSuspend [ProcMgr] function(ServPort: port; ProcID: string): GeneralReturn 
PMTerminate [ProcMgr] function(ServPort: port; ProcPort: port; Reason: long): GeneralReturn 
Port [Accenf Type] type = long 

Port Array [AccentType] type = array [0..MAXPORTS - 1] of Port 
PortBitArray [AccentType] type = packed array[0..MAXPORTS- 1] of boolean 
PortDeath[AccenfType]type = EXPLICITDEALLOC.NETWORKTROUBLE 
PortFull [/Accenf Type] const = AccErr + 3 
Portlnterpose [Accint] function (ServPort: port; MyPort: Port; HisPort: port; var MyNewPort: Port): 

GeneralReturn 
PortOption [AccentType] type = DEFAULTPTS..LOCALPT 
PortraitBitHeiglit[SapprtDe/s] const = 1024 
PortraitBitWidth [Sapp/iDefs] const = 768 

PortsWithMessages [AccCall] function(MsgType: long; var ports: PortBitArray): GeneralReturn 
PosC [Spice_String] fu notion (Str: PString; c: char): integer 
PosString [Spice_String] function(Source, Mask: PString): Integer 
PosSystem [SysType] const = false 



26 



Pov^er [RealFunctions] function(X, Y: Real): Real 

PowerBig [RealFunctions] exception(X, Y: Real) 

Powerl [RealFunctions] function(X: Real; Y: Integer): Real 

PowerNeg [RealFunctions] exception(X, Y: Real) 

PowerSmall [RealFunctions] exception(X, Y: Real) 

PowerZero [RealFunctions] exception(X, Y: Real) 

pPupData [Ef/ierTypes] type = tPupData 

pPupPacket [EtherTypes] type = tPupPacket 

pQMap [QMapDe/s] type = tQCodeMap 

pQMap_Buffer [QMapDefs] type = tQMap_Buffer 

RQMap_ByteBuffer[QMapDefs]type = tQMap_ByteBuffer 

pQMapDict [OA//apDe/s]type = tQMapDIct 

PReadIn [Stream] procedure(var F: Filetype) 

pRectArray [Sapp/?De/s]type = tRectArray 

PREVIEW [AccentType] const = 

PrimaryDef [CFileDefs] const = 10 

Print_Name[SesameDe/s]type = string[Print_Name_Size] 

Print_Name_Size [SesameDefs] const = 80 

PnorlD[/Accemrype]type = 0..NUMPRIORITIES-1 

PROCESSDEATH [>^cce/7?rype] const = 1 

ProcessDeathMsg [ProcMgrDefs] type = record Head: Msg; tWaitID: TypeType; WaitID: long; 

tReason: TypeType; Reason: long; tLoadTime: TypeType; LoadTlme: long; tRunTime: 

TypeType; RunTime: long; tElapsedTime: TypeType; ElapsedTlme: long; end 
ProcessDeathMsgID [ProcMgrDefs] const = 3800 
ProcessDisowned [Proc/WgrDefs] const = ProcMgrBase + 9 
ProcID [/\ccemrype] type = integer 

ProcMgr_Version [ProcMgr] function(Sen,'Port: port): string 
ProcMgrBase [ProcMgrDefs] const = 3600 

ProcState [AccentType] type = (Supervisor, Privileged, BadSupervisor, User) 
ProgresslnTille [Sapp^Oefs] const = 1 
ProgStr[Sapp/70efs]type = String[ProgStrLength] 

ProgStrLength [SappftDefs] const = (lconWidth-2*BorderOverhead)divSysFontWidth 
PromptJndention_String [ExtraCmdParse] const = ". 
pRunHead [RunDefs] type = tRunHead 
pSEarray [fiunDefs]type = tSEarray 
pSegBlock [CoGfe] type = tSegBlock 
pSegBlock [SegDefs] type = tSegBlock 
pSegNode [Coofe] type = tSegNode 
pSourceMap [QMapDefs] type = tSourceMap 
PStatus [AccentType] type = record State: ProcState; Priority: PriorlD; MsgPending: boolean; 

EMsgPending: boolean; MsgEnable: boolean; EMsgEnable: boolean; LimitSet: boolean; 

SVStklnCore: boolean; QueuelD: QID; SleepID: ptrlnteger; RunTime: long; LimitTime: long end 
pStreamBuffer [Sfream] type = tStreamBuffer 
pStreamF [Sf ream] type = tStreamF 
PString[Sp/ce_Sfr/V7g]type = String[MaxPStringSize] 
ptrAliPortArray [Accemrype]type = tPortArray 
pt r A rgumentis [/\ccenf Type] type = tArguments 
ptrBIRecord[Boof/nfo]type = tBIRecord 
ptrBoolean [>Accenf Type] type = tboolean 
ptrDirlOArgs[/\ccemrype]type = tDirectioArgs 
ptrlnteger [/\ccenf Type] type = tinteger 
ptrLPortArray [Accen/rype]type = tLPortArray 
ptrMsg [-Accenf Type] type = tMsg . 
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ptrPartDList[SesD/s/(Defs]type = rPartDList 

ptrPaitList [/\ccen/rype] type = tPartList 

pt r Port [/Accenflype] type = tPort 

pt r Port A r ray [/Accen^Iype] type = tPortArray 

ptrPortBitArray [Accenffype] type = tPortBitArray 

pTSCharArray [rSDefs] type = tTSCharArray 

PupCMUNet[£f/7er7ypes]const= #52 

PupData [EtherTypes] type = RECORD CASE INTEGER OF 0: (Chars: PACKED ARRAY[0..1043] OF 

CHAR); 1: (Bytes: PACKED ARRAY[0..1043] OF 0..255); 2: (Words: PACKED ARRAY[0..521] OF 

INTEGER); 3: (HLongs: PACKED ARRAY[0..260] OF PupHLong); 4: (Ports: PACKED 

ARRAY[0..260] OF PupPort); END 
PupEFTPAck [Ef/7errypes] const = #31 
PupEFTPBort[E//7errypes] const = #33 
PupEFTPData [Ef/?errypes] const = #30 
PupEFTPEnd [EtherTypes] const = #32 
PupEFTPSocket [EtherTypes] const = #20* # 200000 
PupError[Ef/7e/'rypes] const = #4 
PupHeader [EtherTypes] type = PACKED RECORD Len: INTEGER; Typ: 0..255; TC: 0..255; Id: 

PupHLong; Dst: PupPort; Src: PupPort END 
PupHLong [EtherTypes] type = RECORD CASE INTEGER OF 1: (Lng: Long); 2: (Hgh: Integer; Low: 

Integer); END 
PupLLong [Ef/7ef Types] type = RECORD CASE INTEGER OF 1: (Lng: Long); 2: (Low: Integer; Hgh: 

Integer) END 
PupNameSocket [Ef/ierTypes] const = #4* #200000 
PupPacket [EtherTypies] type_= RECORD CASE INTEGER OF 0: (Header: PupHeader; Data: 

PupData); 1: (ChkSums: AhhAY[0..532] Oh integer) tND 
PupPacketBytes[Ef/7errypesl const = 2*WordSize(MsgPupPacket) 
PupPort [EtherTypes] type = PACKED RECORD CASE integer OF 0: (Host: 0..255; Net: 0..255; Soc: 

PupHLong); 1: (All: PACKED ARRAY[0..5] OF Char) END 
PushRegion [ViewPt] procedure(ServPort: Viewport; regionNum: integer; leftx: integer; topy: integer; 

width: integer; height: integer) 
PutAbsoluteDef [CFileDefs] procedure(var BytePtr: long; ByteAddress: long; Name: LString) 
PutAbsoluteLocalDef [CFileDefs] procedure(var BytePtr: long; ByteAddress: long; Name: LString) 
Puts [Stream] procedure(var F: Filetype) 
PutC [Stream] procedure(var F: FileType) 

PutChainHead [CE/7eDe/s] procedure(var BytePtr: long; AreaDesg: BItS; ByteAreaOff: long) 
PutLlbraryDef [CFileDefs] procedure(var BytePtr: long; LibraryFileName: LString; 

Library TimeStamp: lnternal_Time; LibraryLoc: long) 
PulOffsetDef [CFileDefs] procedure(var BytePtr: long; WdOffsetAmt: long) 
PutPrimaryDef [CFileDefs] procedure(var BytePtr: long; SimKind^. Bit8; AreaDesg: BitS; AreaOffset: 

long; SymSize: long; SymName: LString) 
PutViewportBIt [ViewPt] procedure(ServPort: Viewport; x: integer; y: integer; value: boolean) 
PutViewportRectangle [ViewPt] procedure(ServPort: Viewport; Funct: RopFunct; x: integer; y: 

integer; width: integer; height: integer; Data: pVPIntegerArray; Data_Cnt: long; WordsAcross: 

integer; ux: integer; uy: integer) 
pVar_CharA r [SymDefs] type = tVar_CharAr 
pVarJntAr[SymDefs]type = tVarJntAr . 
pVarDictEntry [SymDefsjtype = tVarDictEntry 
pVPCharArray [Sapp/]Defs] type = tVPCharArray 
pVPIntegerArray [Sapp/7Defs] type = tVPIntegerArray 
pVPPortArray [Sapp/7Defs] type = tVPPortArray 
pWinName A r ray [Sapp/7De/s] type = tWinNameArray 
pWord_Search_Tab!e[CommandParse]type = POINTER 
pWord_String [CommandParse] type = tWord_String 
PWriteIn [Stream] procedure(var F: Filetype) 
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QCodeMap [QMapDefs] type = Array[O..QMap_entries_per_block- 1] of QMaplnfoRecord 

QCodeVersion [Code] const = 4 

QCodeVersion [SegDefs] const = 4 

QID [/\ccemrype] type = O..NUMQUEUES 

QMap_Buffer[Q/WapDe/s]type = array[0..PageWordSize-1] of integer 

QMap_ByteBuffer [QMapDefs] type = array[O..PageByteSize- 1] of bit8 

QMaplentries_per_block[0/WapDe^si const = 256 div WSQMaplnfoRecord 

QMap_ptr_type [QMapDefs] type = record case integer of 0: (P: POINTER); 1: (Buffer: 

pQMap_Buffer); 2: (ByteBuffer: pQMap_ByteBuffer); 2: (p: pDirBlk); 2: (pDict: pQMapDict); 3: 

(pMap: pQMap); 4: (pSource: pSourceMap); end 
QMapDict [Q/WapDefs] type = Record CompID: InternaLTime; SourceFileBiock: Integer; Routines: 

array[O..Max_QmapRoutines] of integer; CompID: TimeStamp; SourceFileBiock: Integer; 

Routines: array[0..252] of Integer; End 
QMaplnfoRecord [QMapDefs] type = packed record QCodeNumber: integer; SourceLineNumber: 

integer; BlockNumber: integer; Offset: 0..511; SourceFileNumber: 0..127; end 
QuitMultiProgress [WindowUtils] procedure(Level: 4nteger) 
QuitProgress [WindowUtils] procedure 
Quote_Char [SesameDefs] const = '\' 
quoted_text_bracket_char[CommandParse] const = "" 
QVerRange [Code] type = 0..255 
QVerRange[SegDefs]type = 0..255 
RaiseP [Except] procedure(ES, ER, PStart, PEnd: Integer) 
Random Progress [WindowUtils] procedure 
Re ad Boolean [Reader] procedure(var F: FileType; var X: boolean) 
ReadCh [Reader] procedure(var F: FileType; var X: char; Field: integer) 
ReadCh A rray [Reader] procedure(var F: FileType; var X: ChArray; Max, Len: integer) 
ReadD [PasLong] procedure(var F: FileType; var X: long; B: integer) 
ReadExtendedFile [PathName] function(var PathName: Path_Name; ExtensionList: Extension_List; 

ImplicitSearchList: Env_Var_Name; var Data: File_Data; var ByteCount: long): GeneralReturn 
ReadFiie [PathName] function(var PathName: Path_Name; var Data: File_Data; var ByteCount: long): 

GeneralReturn 
Readldentifier [Reader] procedure(var F: FileType; var X: integer; var IT: IdentTable; L: Integer) 
Readlnteger [Reader] procedure(var F: FileType; var X: integer) 
READONLY [/Iccenflype] const = 
ReadProcessMemory [Accint] function(ServPort: port; Address: VirtualAddress; NumBytes: Long; 

var Data: Pointer; var Data_Cnt: long): GeneralReturn 
ReadR [PasReal] procedure(var F: FileType; var value: real) 
ReadSegment [Accint] function(ServPort: port; Segment: SegID; Offset: Integer; NumPages: Integer; 

var Data: Pointer; var Data_Cnt: long): GeneralReturn 
ReadSt ring [Reader] procedure(var F: FileType; var X: String; Max, Len: integer) 
READWRITE [Accenffype] const = 1 

Read X [f?eader] procedure(var F: FileType; var X: integer; B: integer) 
RealDivZero [Excepf] exception 

RealMIndefinite [RealFunctions] const = Recast( # 20000000001 , Real) 
RealMlnfinity [f?ea/Funcf/ons] const = Recast( # 37740000000, Real) 
RealMLargest[Rea/Fu/7cf/ons] const = Recast( # 37737777777, Real) 
RealMSmallest [RealFunctions] const = Recast( # 20040000000, Real) 
RealPlndefinite [RealFunctions] const = Recast( # 00000000001 , Real) 
RealPlnfinity [RealFunctions] const = Recast(# 17740000000, Real) 
RealPLargest[Rea/Fancf/ons] const = Recast(# 17737777777, Real) 
RealPSmallest [RealFunctions] const = Recast{ # 00040000000, Real) 
RealWriteError [Stream] exception(FileName: SName) 

Receive [AccCall] function(var x.xmsg: Msg; MaxWait: long; PortOpt: PortOption; Option: 
ReceiveOption): GeneralReturn 



29 



RECEIVEIT [AccentType] const = 1 

ReceiveOption [AccentType] type = PREVIEW..RECEIVEWAIT 

RECEIVEWAIT [AccentType] const = 2 

RecMsg [tPCRecordIO] type = record Head: Msg; RecType: TypeType; RecName: integer; RecSize: 

integer; RecElts: long; RecPtr: pointer end 
RECMSGSIZE [IPCRecordIO] const = WordSize(RecMsg)*2 
RecRecord [IPCRecordIO] function(var localport: Port; var remoteport: Port; var id: long; var 

Msg Type: long; var recptr: Pointer; var recsize: Integer): GeneralReturn- 
Rectangle [SapphDefs] type = record Ix, ty, w, h: integer; end 
RectArray [Sapp/7Defs] type = Array[1 ..MaxNumRectangles] of Rectangle 
RectColor [AccCall] function(Rectangle: Port; Action: integer; X: integer; Y: integer; Width: integer; 

Height: integer): GeneralReturn 
RectColorFunct [SapphDefs] type = (RectBlack, RectWhite, Rectlnvert) 
RectDrawLlne [AccCall] function(DstRectangle: ' Port; Kind: integer; XI, Y1, X2, Y2: integer): 

GeneralReturn 
RectPutString [AccCall] function{DstRectangle: Port; FontRectangle: Port; Action: integer; var 

FIrstX: integer; var FirstY: integer; StrPtr: Pointer; FirstChar: integer; var MaxChar: integer): 

GeneralReturn 
RectRasterOp [AccCall] function(DstRectangle: Port; Action: integer; DstX: integer; DstY: integer; 

Width: integer; Height: Integer; SrcRectangle: Port; SrcX: integer; SrcY: integer): GeneralReturn 
RectScroil [AccCall] function(Rectangie: Port; X: integer; Y: integer; Width: integer; Height: integer; 

Xamt: integer; Yamt: integer): GeneralReturn 
RemoveExtension [PathName] procedure(var fileName: Path_Name; Extension: String) 
RemoveWindow [Sapph] procedure(ServPort: Window) 
RemoveWindowAttentionFlag [WindowUtils] procedure 
RemoveWmdowErrorrJag [Vv'indowUtiis] procedure 
RemoveWindow RequestFlag [WindowUtils] procedure 

ReplaceChars [Spice_Str;ng] procedure(var Str: PString; NewS: PString; Index: integer) 
REPLY [AccentType] const = 2 
ReplyCode [EtherTypes] const =1 

ReserveCursor [ViewPt] procedure(ServPort: Viewport; reserve: boolean) 
ReserveScreen [ViewPt] procedure(ServPort: Viewport; reserve: boolean) 
ResetError [Stream] exception(FileName: SName) 
ResetHeap [Dynamic] proc9dure(S: HeapNumber) 
ResolveSearchList [EnvMgr] function{ServPort: Port; Name: Env_Var_Name; FirstOnly: boolean; 

var Variable: Env_Variable; var Variable_Cnt: long; var FirstDefined: boolean): GeneralReturn 
Restore Window [Sapph] procedure(ServPort: Window) 
Resume [Accint] function(ServPort: port): GeneralReturn 
RevPosC [Spice_String] function(Str: PString; c: char): integer 
RevPosString [Sp/ce_Sfr/ng] function(Source, Mask: PString): Integer 
Rew riteError [Stream] exception(FileName: SName) 
RFDELAYEDMAIN [/?unDefs] const = 255 
RFFO RM AT [/?(inDefs] const = 5 
RFIleFormat [Code] const = 2 
RMAXFILE [HunOe/s] const = 255 
RM A X I M P RT [HunDefs] const = 4095 
RM AXSEG [RunDefs] const = RFDELAYEDMAIN - 1 

RopFunct [Sapp/?Defs] type = (RRpI, RNot, RAnd, RAndNot, ROr, ROrNot, RXor, RXNor) 
RoundTo [CF/7eDefe] procedure(var Value: long; Boundary:' integer) 
RRecMsg [IPCRecordIO] type = record Head: Msg; RecType: TypeType; RecName: integer; 

RecSize: integer; RecEIts: long; RecPtr: pointer; filler: array[1 ..100] of integer end 
RRECMSGSIZE[/PCf?ecord/0] const = WordSize(R RecMsg)* 2 
RS110[/OOefs] const = 1 
RS1 200 [lODefs] const = 5 
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RSI 50 [lODefs] const = 2 

RS 1 9200 [lODefs] const = 9 

RS2400 [lODefs] const = 6 

RS300 [lODefs] const = 3 

RS4800 [lODefs] const = 7 

RS600 [lODefs] const = 4 

RS9600 [lODefs] const = 8 

RSExt [lODefs] const = 

Rtol Ovf I [Excep?] exception 

RunElement [Code] type = (RunHeader, SysSegment, UserSegment, Import, SegFileNames) 

Run FileType [Code] type = file of Integer 

RunHead [RunDefs] type = record RFileFormat: integer; InitSeg: Seglndex; MainSeg: Seglndex; 

LinkVersion: string[20]; LinkLocation: string[20]; LinkDate: InternaLTime; LinkCommand: 
string; Version: long; SegEntryOffset: long; NumSegs: Seglndex; ImplndexOffset: long; 

Numlmports: Implndex; RIeEntryOffset: long; NumFiles: Filelndex; end 
RUNHEADLOC[Hu/iDefs] const = PageWordSize 
Runlnfo [Code] type = record RFileFormat: integer; Version: integer; System: boolean; InitialGP: 

integer; CurOffset: integer; StackSize: integer; Stacklncr: integer; HeapSize: integer; Heaplncr: 

integer; ProgramSN: integer; SegCount: integer end 
SaphEmrServer [SaptiEmrServer] function(lnP, RepP: POINTER): boolean 
Sapph_Version [Sapph] function(ServPort: Window): String 
Sapphrndex [Pasca//mf] const = 2 
Sapph Port [Pascallnit] var: Port 
SapphSystem [SysType] const = true 

Scan [Spice_Stnng] function(var S: Pstring; BT: breaktable; var BRK: Pstring): Pstring 
ScanEnvVariables [EnvMgr] function(ServPort: Port; SearchScope: Env_Var_Scope; var 

EnvScanList: Env_Scan_List; var EnvScanList_Cnt: long): GeneralReturn 
ScreenToVPCoords [Viewf^] procedure(ServPort: Viewport; scrX: integer; scrY: integer; var x: 

integer; var y: integer) 
Searchllst_Separator[EnvMgrDefs] const = ': ' 
SearchlistLoop[EnvMgrDefs] const = Env_Error_Base + 4 
SEarray [RunDefs] type = array[Seg Index] of SegEntry 
SECName [CFileDefs] function(x: Bit8): string 
SegBaseAddr [CFileDefs] function(Segnum: integer): long 
Seg Block [Code] type = packed record case integer of 0: (ProgramSegment: boolean; Longlds: 

boolean; DbglnfoExists: boolean; OptimizedCode: boolean; SegBlkFiller: 0..15; QVersion: 

QVerRange; ModuleName: SNArray; FileName: FNString; NumSeg: integer; ImportBlock: 

integer; GDBSize: integer; Version: String[CommentLen]; Comment: String[CommentLen]; 

Source: Language; PreLinkBlock: integer; RoutDescBlock: integer; DiagBlock: integer; 

QMapFileName: FNString; SymFileName: FNString; Gompid: TimeStamp); 1: (OffsetRD: Integer; 

RoutsThisSeg: integer); 2: (Block: array[0..255] of integer) end 
SegBlock [SegDefs] type = packed record case integer of 0: (ProgramSegment: boolean; Longlds: 

boolean; DbglnfoExists: boolean; OptimizedCode: boolean; ThirtyChlds: boolean; SegBlkFiller: 

0..7; QVersion: QVerRange; ModuleName: SNArray; FileName: FNString; NumSeg: integer; 

ImportBlock: integer; GDBSize: integer; Version: String[CommentLen]; Comment: 

String[CommentLen]; Source: Language; PreLinkBlock: integer; RoutDescBlock: integer; 

DiagBlock: integer; QMapFileName: FNString; SymFileName: FNString; Compid: TimeStamp); 1: 

(OffsetRD: integer; RoutsThisSeg: integer); 2: (Block: array[0..255] of integer) end 
SegEntry [RunDefs] type = record ModuleName: ModString; GDBSize: long; GDBLocation: long; 

SegFile: Filelndex; SegHdrOffset: long; SegHdrSize: long; CodeOffset: long; CodeSize: long; 

ImportsOffset: long; ImportsSize: long; ProcNamesOffset: ■ long; ProcNamesSize: long; 

SymsFile: Filelndex; SymsOffset: long; SymsSize: long; QMapFile: Filelndex; QMapOffset: long; 

QMapSize: long; Firstlmport: Implndex; Numlmports: integer; end 
SegFileType [Code] type = file of SegBlock 
SegFileType [SegDefs] type = file of SegBlock 
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SegHint [Code] type = record case Integer of 1: (Fid: Integer; Update: TimeStamp); 2: (Word1: 

integer; Word2: Jntege^r; VYordS: Integer) end 
SegID [AccenfFype] type = Song 
Seglndex [/7unDefs] type = O..RFDELAYEDMAIN 
SegLength [Code] const = 8 
SegLength [SegDe/s] const = 8 

Segment Al readyExists [4ccenfrype] const = AccErr + 48 
SegmentOf [CFileDefs] fun^on(Addr: long): integer 
SegNode [Code] type = record Segid: SNArray; RootNam: pFNString; Hint: SegHint; GDBSize: 

integer; XSTSize: integer; GDBOff: integer; ISN: integer; CodeSize: integer; SSN: integer; 

UsageCnt: integer; ImpList: pImpNode; Next: pSegNode end 
Send [AccCall] function(varxxmsg: Msg; MaxWait: long; Option: SendOption): GeneraiReturn 
SendEther Address [EtheirUser] function(Reply: Port; MaxWait: long; Option: SendOption): 

GeneraiReturn 
SendEtherClear [EtherUser] function{Typ: INTEGER; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): C^neralReturn . 
SendElhsrFiiter [EtherUser} function(Typ: INTEGER; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): GeneraiReturn 
SendEtherPacket [EtherUser] function (Packet: POINTER; PacketWords: INTEGER; MaxWait: long; 

Option: SendOption): GeneraiReturn 
SendOption [AcceniType] type = WAIT..REPLY 
SendPupClear [EtherUser] function(Socket: Long; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): GeneraiReturn 
SendPupFiiter [EtherUser] function(Socket: Long; Listener: Port; Reply: Port; MaxWait: long; 

Option: SendOption): GeneraiReturn 
SendPupPacket [EtherUser] function(PupPacket: POINTER; MaxWait: long; Option: SendOption): 

SendRecord [IPCRecordIO] function(localport: Port; remoteport: Port; id: long; MsgType: long; 

recptr: Pointer; recsize: integer): GeneraiReturn 
ServeriOPort [/ODe/s] type = Port 
ServerNamePort [/ODefs] type = Port 
Sesame_Error_Base [SesameDefs] const = 1200 
Sesamelndex [Pascallnlt] const = 1 

SesAuthServerPoft [SesD/sA] function(ServPort: Port; AuthServerPort: Port): GeneraiReturn 
SesConnect [SesDisk] functfon(ServPort: Port; RegPort: Port): GeneraiReturn 
SesDirectio [SesDisk] function (ServPort: Port; var CmdBlk: DirectlOArgs; var DataHdr: Header; var 

Data: DiskBuffer): GeneraiReturn 
SesDisk_Error_Base [SesDlskDefs] const = 29400 

SesDiskDIsMount [SesD/s^] function (ServPort: Port; PartName: string): GeneraiReturn 
SesDiskMount [SesD'S/(] function(ServPort: Port; PartName: string): GeneraiReturn . 
SesEnterForeignSesamoid [SesD/s/c] function(ServPort: Port; APathName: APath_Name; 

ForeignPort: Port; ForeJgnPrefix: APath_Name): GeneraiReturn 
SesEnterSegID [SesD/'sA] function(ServPort: Port; var APatfiName: APath_Name; SegmentID: 

SegID): GeneraiReturn 
SesGetAccessRlghts'[SesD/s/c] function(SefVPort: Port; var APatfiName: APath_Name; var Owner: 

User_ID; var Rights: Access_Rights): GeneraiReturn 
SesGetDefaultAccess [SesDisk] function(ServPort: Port; var Default Access: Access_Rlghts): 

GeneraiReturn 
SesGetDiskPartitions [SesDisk] function (ServPort: Port; var PartL: ptrPartDList; var NumElts: 

integer): GeneraiReturn 
SesGetFileHeader [Sesame] function(ServPort: port; APatfiName: APath_Name; var FileHeader: 

Fi!e_Header): GeneraiReturn 
SesGetNetPort [SesDisk] function(ServPort: Port; var SesNetPort: Port): GeneraiReturn 
SesGetSegID [SesDisk] function (ServPort: Port; var APathName: APath_Name; var SegmentID: 

SegID): GeneraiReturn 
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SesGetSegName [SesDisk] function(ServPort: Port; SegmentID: SegID; var APathName: 

APath_Name): GeneralRetum 
SesLookupForeignSesamoid [SesDisk] function(ServPort: Port; APathName: APath_Name; var 

ForeignPort: Port; var ForeignPrefix: APath_Name): GeneralReturn 
SesMountDevice [SesDisk] function(ServPort: Port; interface: Disklnterface; log_unit: Interfacelnfo; 

var unitnum: integer; var PartL: ptrPartDList; var NumElts: integer): GeneralReturn 
SesMsgServerPort [SesDisk] function (ServPort: Port; MsgServerPort: Port): GeneralReturn 
SesPort [Pascallnit] var: port 
SesReadBoth [Sesame] function(ServPort: port; var APathName: APath_Name; var Data: File_Data; 

var Data_Cnt: long; var FileHeader: File_Header; var NameStatus: Name.Status): 

GeneralReturn 
SesReadFile [Sesame] function(ServPort: port; var APathName: APath_Name; var Data: File.Data; 

var Data_Cnt: long; var DataFormat: Data.Format; var CreationDate: InternaLTime; var 

NameStatus: Name_Status): GeneralReturn . 
SesScanNames [Sesame] function(ServPort: port; WildAPathName: Wiid_APath_Name; NameFlags: 

Name Flags; EntryType: Entry_Type; var DirectoryName: APath_Name; var EntryList: 

Entry list; var EntryLlst.Cnt: long): GeneralReturn 
SesSetAccessRights [SesDisk] function (ServPort: Port; var APathName: APath_Name; NewOwner: 

User_ID; NewRights: Access.Rights): GeneralReturn 
SesSetDefaultAccess [SesD/s/c] function(ServPort: Port; NewDefaultAccess: Access_Rights): 

GeneralReturn 
SesSetPOSWriteDate [SesDisk] function (ServPort: Port; APathName: APath_Name; WriteDate: 

InternaLTime): GeneralReturn 
SetAsmLong [CF/7eDefs] procedure(var ByteAddr: long; NewValue: long) 
SetAsmStrIng [CFileDefs] procedure(var ByteAddr: long; NewValue: LString) 
SetBackLog [Accint] function(ServPort: port; LocalPort: port; Backlog: Integer): GeneralReturn 
SetBreak [Spice_String] procedure(BT: BreakTable; Break, Omit: PString; Options: BreakKind) 
SetCodeByte [CFileDefs] procedure(var ByteAddr: long; NewValue: BitS) 
SetCodelong [CF/7eDe/s] procedure(var ByteAddr: long; NewValue: long) 
SetCodeWord [CFileDefs] procedure(var ByteAddr: long; NewValue: Integer) 
SeiCursorPos [ViewPt] procedure(ServPon: Viev^port; x: integer; y: integer) 
SetDataLong [CFileDefs] procedure(var ByteAddr: long; NewValue: long) 
SetDateTime [Time] procedure(ServPort: port; ITime: InternaLTime) 
SetDebugPort [Accint] function(ServPort: port; DebugPort: port): GeneralReturn 
SetEnvVariable [Envl^gr] function(ServPort: Port; Name: Env_Var_Name; VarType: Env_Var_Type; 

VarScope: Env_Var_Scope; Variable: Env_Variable; Variable.Cnt: long): GeneralReturn 
SetKernelWindow~[Acc/A7r] function(ServPort: port; LeftX: Integer; TopY: Integer; Width: Integer; 

Height: Integer; Inverted: Boolean): GeneralReturn 
SetLimit [Accint] function(ServPort: port; ReplyPort: port; Limit: Long): GeneralReturn 
SetListener [ViewPt] procedure(ServPort: Viewport) 

SetPagingSegment [Accint] function(ServPort: port; Segment: SegID): GeneralReturn 
Set PM Port [Sapph] procedure(ServPort: Window; ProcCtiPort: Port) 
SetPortsWaiting [AccCall] function(var ports: PortBit Array): GeneralReturn 
SetPriority [Accint] function(ServPort: port; Priority: PriorlD): GeneralReturn 
SetProtection [Accint] function(ServPort: port; Address: VirtualAddress; NumBytes: Long; 

Protection: Integer): GeneralReturn 
SetRegionCursor [ViewPt] procedure(ServPort: Viewport; regionNum: integer; cursorlmage: 

CursorSet; curslndex: integer; cursFunc: CursorFunction; track: boolean) 
SelRegionParms [ViewPt] procedure(ServPort: Viewport; regionNum: integer; absolute: boolean; 

speed: Integer; minx: integer; maxx: integer; miny: integer; maxy: integer; modx: integer; posx: 

integer; mody: integer; posy: integer) 
SetSystemZone [Time] procedure(ServPort: port; TimeZone: integer; DSTWhenTimely: boolean) 
SetTempSegPartition [Accint] function(ServPort: port; PartName: DevPartString): GeneralReturn 
Set Window Attention [Sapph] procedure(ServPort: Window; attn: boolean) 
SetWindowError [Sapph] procedure(ServPort: Window; error: boolean) 



33 



SetWindowName [Sapph] procedure(Sen^Port: Window; var progName: ProgStr) 
SetWindowProgress [Sapph] procedure(ServPort: Window; nestLevel: integer; value: Long; max: 

Long) 
SetWindowRequest [Sapph] proc8dure(ServPort: Window; requesting: boolean) 
SetWindowTltle [Sapph] procedure(ServPort: Window; title: TitStr) 
shelljnput_redirect [CommandParse] const = '<' 
shell_output_redirect [CommandParse] const = '>' 
she!l_parallel_command [CommandParse] const = '&' 
shell_piped_command [CommandPacse] const = T 
shell_special_args_start [CommandParse] const = '[' 
shell_special_args_stop [CommandParse] const = ']' 
ShowBreak [Spice_String] function(BT: BreakTable): PString 
Show Path AndTitle [WindowUtils] procedure(s: TitStr) 
Show Run [ALoad] procedure(p: pointer; MapFileName: Path_Name) 
ShowWindowAttentionFlag [WindowUtils] procedure 
ShowWindowErrorFlag [WindowUtils] procedure 
ShowWindowRequestFlag [WindowUtils] procedure 
ShrinkWindow [Sapph] procedure(ServPort: Window) 
SigDebug [ProcMgrDefsj const = MinSigrial + 36 
SigLevell Abort [ProcMgrDe/s] const = MinSignai + 37 
SigLevel2Abort[ProcWgrDefs] const = MinSignai + 38 
SigLevelGAbort [ProcMgrDefs] const = MinSignal + 39 
SignalAction [ProcMgrDefs] type = (SigDefault, Siglgnore, SigSend) 
SignalB9se[ProcMgrDefs] const = 3800 
SignalMsg [FrocMgrDefs] type = record Head: Mag; tCtlWindow: TypeType; CtlWindow: Window; 

tSignal: TypeType; Signal: SignalName; end 
SignalMsgID[ProcMgrOefs] const = 3801 
SignalName [ProcMgrDefs] type = integer 
SigResume [ProcMgrDefs] const = MinSignal + 34 
SigStatus [ProcMgrDefs] const = MinSignal + 35 
SigSu spend [ProcMgrDefs] const = MinSignal + 33 
SimpleName [PathName] function (Path Name: Path_Name): Entry_Name 
Sin [RealFunctions] function(X: Real): Real 
single_char_quote [CommandParse] const = '\' 
SinH [RealFunctions] function(x: real): real 
SinHLarge [RealFunctions] exception(X: Real) 
SinLarge [RealFunctions] exceptionjX: Real) 
SlOSenseStatus [lODefs] type = packed record RxCharAvailable: boolean; IntPending: boolean; 

TxBufferEmpty: boolean; DCD: boolean; SyncHunt: boolean; GTS: boolean; TransmitUnderRun: 

boolean; BreakAbort: boolean; AllSent: boolean; Residue: Bit3; ParityError: boolean; 

RxOverRun: boolean; CrcFramingError: boolean; EndOfFrame: boolean; end 
SIOWriteRegister [lODefs] type = packed record case RegNum: Bits of 0: (); 1: (RegVal: Bit8) end 
Small Real [Stream] exception{FileName: SName) 
SName [Stream] type = string[255] 

SNA rray [Code] type = packed array[1..SegLength] of Char ' 
SNA r ray [SegDefs] type = packed array[1 ..SegLength] of Char 

SoftEnable [AccCall] function(NormOrEmerg: boolean; EnOrDis: boolean): GeneralReturn 
Softlnterrupt [Accint] functlon(ServPort: port; NormOrEmerg: Boolean; var EnOrDisable: Boolean): 

GeneralReturn 
Source_entries_per_block [0/WapDefs] const = 256 div WSSourceMapRecord 
SourceMap [QMapDefs] type = Array[O..Source_entries_per_block - 1] of SourceMapRecord 
SourceMapReccrd [QMapDefs] type = record FileName: APath_Name; CompID: lnternal_Time; 

Filler: array[0..1 24] of integer; FileName: PathName; fileBlocks, fileBits: Integer; end 
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Spawn [Spawn] function(VAR ChildKPort: Port; VAR ChildDPort: Port; ProgName: APath_Name; 
ProcName: STRING; HisCommand: CommandBlock; Debuglt: BOOLEAN; ProtectChild: 
BOOLEAN; SapphConn: Connectionlnheritance; pWindow- Port; pTypeScript: Port; EMConn: 
Connectionlnheritance; pEMPort: Port; PassedPorts: ptrPortArray; NPorts: LONG; 
LoaderDebug: BOOLEAN): GeneraiReturn 
SpiceSegKind [AccentType] type = (Temporary, Permanent, Bad, SegPhysical, Imaginary, Shadow) 
Split [Spawn] function(VAR ChildKPort: Port; VAR ChildDPort: Port): GeneraiReturn 
Sqrt [RealFunctions] function{X: Real): Real 
SqrtNeg [RealFunctions] exception(X: Real) 
Squeeze [Spice_String] function(Str: PString): PString 
StackLeader [Code] const = 2 

Stat A rray [ProcMgrDefs] type = array[0..0] of StatRecord 
StatLlst [ProcMgrDefs] type = tStatArray 

StatRecord [ProcMgrDefs] type = record RunTime: long; LoadTime: long; ElapsedTlme: long; 
KernelPort: long; Priority: integer; QueuelD: integer; ProcName: string; IconName: ProgStr; 
State: ProcState; end 
Status [Accint] function(ServPort: port; var NStats: PStatus): GeneraiReturn 
str [Spice_String] function(Ch: char): PString 

StrBadParm [Spice_String] exception(FuncName, StringArgument: PString; ParmValue: integer) 
StreamBuffer [Stream] type = record case integer of 0: (W: array[0..255] of integer); 1: (B1: packed 
array[0..0] of 0..1); 2: (B2: packed array[0..0] of 0..3); 3: (B3: packed array[0..0] of 0..7); 4: (B4: 
packed array[0..0] of 0..15); 5: {B5: packed array[0..0] of 0..31); 6: (B6: packed array[0..0] of 
0..63); 7: (B7: packed array[O..0] of 0..127); 8: (B8: packed array[0..0] of 0..255); 9: (C: packed 
array[0..255] of char); end 
StreamClose [Stream] procedure(var F: FileType) 
St ream F [Stream] type = record FName: SName; Buffer: pStreamBuffer; BufSize: long; Wordlndex: 

long; LastElt: integer; Eltlndex: integer; end 
StreamFlushOutput [Stream] procedure(var F: Text) 

Streamlnit [Stream] procedure(var F: FileType; WordSize, BitSize: integer; CharFile: boolean) 
StreamKeyBoardReset [Stream] procedure(var F: Text) 
StreamName [Stream] function(var F: FileType): SName 
StreamOpen [Stream] procedure(var F: FileType; var Name: SName; WordSize, BItSize: integer; 

CharFile: boolean; OpenWrite: boolean) 
St ream Progress [WindowUtils] procedure(var F: File) 
StreamVersion[Sfream] const = '3.9' 
Strlndx [Except] exception 
Slring_255[r/meDefs]type = strlng[255] 
Strip [Spice_String] functlon(Str: PString): PString 

StripCurrent [PathName] function(var WildPathName: Wlld_Path_Name): GeneraiReturn 
StrLong [Except] exception 

STSChangeEnv [TS] procedure(ServPort: Typescript; env: Port) 
STSFIushlnput [7S] procedure(ServPort: Typescript) 
STSFIushOutput [rs] procedure(ServPort: Typescript) 
STSFuilLine [TS] function(ServPortr Typescript): Boolean 
STSFuHOpen [TS] function(ServPort: Port; vp: ViewPort; env: Port; fontName: TString255; doWrap: 

Boolean; dispPages: Integer): Typescript 
STSFuilOpenWindow [TS] function(ServPort: Port; w: Window; env: Port; fontName: TString255; 

doWrap: Boolean; dispPages: Integer): Typescript 
STSGetChar [TS] function(ServPort: Typescript): Char 
STSGetString [rS] function(ServPort: Typescript): TString255 
STSGrabWindow [TS] function(ServPort: Typescript; kPort: Port): Window 
STSOpen [TS] function(ServPort: Port; vp: ViewPort; env: Port): Typescript 
STSOpenWindow [TS] function(ServPort: Port; w: Window; env: Port): Typescript 
STSPutChar [TS] procedure(ServPort: Typescript; ch: Char) 



35 

STSPutCharArray [TS] procedure(ServPort: Typescript; chars: pTSCharArray; chars Cnt: long- 
firstCh: Integer; lastCh: Integer) o_^ i. .uny, 

STSPutString [TS] procedure(ServPort: Typescript; s: TString255) 

SubDeleteName [Sesame] function(ServPort: port; APathName: APath_Name): GeneralReturn 

SubEnterName [Sesame] function(ServPort: port; var APathName: APath Name; EntrvTvoe- 

Entry_Type; EntryData: Entry_Data): GeneralReturn " ^ ^^ 

SubLookUpName [Sesame] function(ServPort: port; var APathName: APath_Name; var EntryType- 

Entry_Type; var EntryData: Entry_Data; var NameStatus: Name.Status): GeneralReturn 
SubReadFile [Sesame] functlon(ServPort: port; APathName: APath Name; var Data: File Data- var 

Data_Cnt: long): GeneralReturn " ~ - «. »<=»« 

SubReName [Sesame] function (ServPort: port; OldAPathName: APath Name; var NewAPathName- 

APath_Name): GeneralReturn ~ 

SubstrFor [Spice_Stnng] function(Source: PString; Index, Size: Integer): PStrIng 
SubstrTo [Sp/ce_S?r/V?g] function(Source: PString;- Index, Endlndex: Integer): PStrIng 
SubTestName [Sesame] function(ServPort: port; var APathName: APath Name; var EntrvTvoe- 

Entry_Type; var NameStatus: Name.Status): GeneralReturn ~ 

SubWrlteFile [Sesame] function(ServPort: port; var APathName: APath.Name; Data: File Data- 

Data.Cnt: long; DataFormat: Data_Format; var CreationDate: lnternal_Time): GeneralReturn ' 
Success [<4ccenf Type] const = AccErr+1 
Suspend [Accint] function(ServPort: port): GeneralReturn 
switch_.leadin_char [CommandParse] const = ' - ' 
SynclO [/O] function(ServPort: ServerlOPort; Command: lOCommand; CmdBlk: Pointer 

CmdBlk_Cnt: long; var DataBuf: Pointer; var DataBuf.Cnt: long; DataTransferCnf Lonq- 

TimeOut: Long; var Status: lOStatusBlk): GeneralReturn -"'bierv^ni. Long, 

SysFontHeight[Sapp/)De/s] const = 13 

SysFontName [SapphDefs] const = 'Fixl3.Kst' 

SysFontWidth [Sapp/7De/s] const = 9 

T_lntToString [Time] function{ServRort: port; ITIme: InternaLTIme; TimeFormat: integer)- String 

T_lntToUser [Time] function (ServPort: port; ITime: InternaLTIme): User_Time 

T.lntToZone [Time] function(ServPort: port; ITIme: InternaLTIme; TZone: Zone Info)- User Time 

T.Never [r/me] function(ServPort: port): InternaLTIme 

T.StringToInt [7/me] function(ServPort: port; STime: String_255; var Index: integer; var WhatlFound- 
mteger): InternaLTime 

^-^^'wh^^c^®"^ f^'"^^^M"^*'°^.^^®'^''°'^' P^*^' ^^'"^®= String_255; var Index: integer; var 
WhatlFound: integer): User_Time 

T.UserToInt [Time] function(ServPort: port; UTime: User Time): InternaLTIme 

T.UserToString [7/me] function{ServPort: port; UTime: User.Time; TimeFormat: integer); String 

Tan [Real Functions] function(X: Real): Real 

TanH [RealFunctions] function(x: real): real 

Tan La rge [/?ea/f uncf/ons] exceptlon(X: Real) 

Terminate [Accint] function(ServPort: port; Reason: Long): GeneralReturn 

TextState [CF/7eDe/s] const = 

TF_1 2_Hou r [r/meDe/s] const =# 004000 

TF_ANSI [r/meDefs] const = #000300 

TF_ANSI_Ordinal [T/meDe/s] const = #000340 

TF_BlankPad [r/meDe/s] const = #020000 

TF_Dashes [T/meDefs] const = #000000 

TF_DateFormat [r/meDe/s] const = #000340 

TF_FullMonth [r/meDe/s] const = #000010 

TF_Fu II Weekday [r/meDe/s] const = #000002 

TF_Ful!Year [r/meDe/s] const = #000020 

TF_Milliseconds [r/meDe/s] const = #002000 

TF_Never [r/meDe/s] const = #100000 

TF_NoColumns [TimeDefs] const = #040000 
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Tf=_NoDate [r/meDefs] const = #000004 

TF_NoSeconds [T/meDe/s] const = #001000 

TF_NoTime [T/meDefs] const = #000400 

TFlReversed[r/meDefs] const = #000100 

TF_Slashes [r/meDefs] const = #000140 

TFlspaces [r/meDe/s] const = #000040 

TFlTimeZone [T/meDefs] const = #010000 

jp'weekday [TimeDefs] const = #000001 

This Directory [SesameDefs] const - './' 

Time_Fields [TimeDefs] type = packed record Hour: 0..24; Minute: 0..59; Second: 0..59; Millisecond: 

"0..999;end 
Timelndex [Pascallnit] const = 
TimeNotlnitialized [Time] exception 
TimeOut [AccentType] const = AccErr + 2 
TimeOutError [Stream] exception(FileName: SName) 
TIMEOUTUSECS[Sapp/7F/7eDefs] const = 16666 
TimePort [Pasca//n/f] van port 
TimeStamp [OldTimeStamp] type = packed record Hour: 0..23; Day: 1..31; Second: 0..59; Minute: 

0..59; Month: 1 ..12; Year: 0..63; end • 
TitleOv8rhead[Sapp/7Defs] const = SysFontHeight + 6 
TitStr[Sapp/70efs]type = String[TitStrLength] 

TitStrLength [SapphDefs] const = LandScapeBitWidth div SysFontWIdth 
TooManyHeaps [Dynam/c] exception 
TooMany Replies [>Acce/?f Type] const = AccErr + 5 

Touch [Accint] function(ServPort: port; Address: VIrtualAddress): GeneralReturn 
TP_Date [T/meDefs] const = #000002 
TP_Never [r/meDefs] const = #000020 
TP.RESERVED [T/meDefs] const = #177740 
TP_Time [TimeDefs] const = #000004 
TP_Weekday [r/meOefs] const = #000001 
TP_Zone [TimeDefs] const = #000010 

TraceHeap [Dynamic] procedure(S: HeapNumber; Trace: boolean) 

TrapCodes [AccentType] type = (Traplnit, TrapRead Fault, TrapWriteFault, TrapSend, TrapReceive, 
TrapSetPortsWaiting, TrapPortsWithMessages, TrapDebugWrite, TrapException, TrapNothing, 
TrapRectDrawLlne, TrapRectRasterOp, TrapCharRead, TrapFull, TrapFlush, TrapMoveWords, 
TrapRectPutString, TrapError, TrapClockEnable, TrapGPRead, TrapGPWrite, TrapSoftEnable, 
TrapGetlOSIeepID, TrapRectColor, TrapRectScroll, TrapLockPorts, TrapMessagesWaitmg) 

Trim [Spice_String] function(Str: PString): PString 

TruncateSegment [Accint] functlon(ServPort: port; Segment: SegID; NewSize: . Integer): 
GeneralReturn 

TSCharArray [TSDefs] type = packed array[0..1] of Char 

TString255 [rSDefs] type = String[255] 

TY PEBIT [/Accerjf Type] const = 

TYPEBOOLEAN [^ccenfType] const = 

TYPEBYTE[>Accenfrype]const = 9 

TYPECHAR [Accenflype] const = 8 

TYPEINT1 6 [AccentType] const =1 

TYPEINT32 [Accenf Type] const = 2 

TYPE! NTS [AccentType] const = 9 

TYPEPAGE [Accenf Type] const = 14 

TYPEPSTAT [Accenf Type] const = 11 

TY PEPT [Accenf Type] const = 6 

TYPEPTALL [AccentType] const = 5 

TYPEPTOWNERSHIP [AccentType] const = 3 
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TYPEPTRECEIVE[/^ccenfrype] const = 4 

TYPEREAL[/^ccen/rype] const = 10 

Typescript [rSDe/s] type = Port 

Typescriptlndex [Pascallnit] const = 3 

TypescriptPort [Pascallnit] var: Port 

TYPESEGID[4ccemrype] const = 13 

TYPESTRING [^ccenffype] const = 12 

TypeType [AccentType] type = packed record case integer of 1: (TypeName: Bit8; TypeSizelnBits: 

Bits; NumObjects: Bit12; Inline: boolean; LongForm: boolean; Deallocate: boolean); 2: 

(Longlnteger: long) end 
TYPEUNSTRUCTURED [^AccenfType] const = 
ULInitial [Spice_Strihg] function(Str1 , Str2: PString): boolean 
ULPosString [Spice_Strlng] function(Source, Mask: PString): Integer 
UncaughtExceptlon [/\ccenf7ype] const = AccErr + 44 
UNCHANGED [SapphDefs] const = - 32001 
UndefinedGlobal [CF/7eDefs] const = UndefinedSymbol 
UndeflnedSymbol [CFileDefs] const = 7 
UndfDevice [Stream] exception 
U ndf I nt [Excepf] exception 
UndfQcd [Excepf] exception 
UndReal [Except] exception 
UniqueWordlndex [CommandParse] function(table: pWord_Search_Table; ptrWordString: 

pWord_String; var WordText: Cmnd_String): integer 
UnitlOError [Stream] exception (FileName: SName) 
Unknov^n Action [ProcA.'fgrDe/s] const = ProcMgrBase + 3 
UnknownPort [Proc/WgrDe/s] const = ProcMgrBase + 7 
UnknownProcess[ProcMgrDefs] const = ProcMgrBase + 1 
UnknownSignal [Pfoc/WgrDe/s] const = ProcMgrBase + 2 
UnknownWindov/ [ProcMgrDefs] const = ProcMgrBase + 4 
UnrecognizedMsgType [Accenf Type] const = AccErr+15 
UNSPECEXCEPTION [AccentType] const = 5 
Up_one_Di recto ry [SesameDe/s] const = '../' 
UpChar [Spice_String] function(C: Char): Char 
UpEQU [Spice_String] function(Str1: PString; Str2: PString): boolean 
UserJD [AuthDefs]type - No_User..Max_Users 
User_Time [TimeDefs] type = packed record Date: Date_Fields; Time: Time_Fields; Zone: 

Zonejnfo; end 
UserCommand [Pascallnit] var: CommandBlock 
UserError [ViewPt] exception(s: String) 
UserEventPort [/ODefs] type = Port 

UserNameNotFound [AuthDefs] const = Auth_Error_Base + 1 
UserRecord [AuthDefs] type = record Name: Auth_Var; UserlD: UserJD; EncryptPass: PassType; 

Profile: APath_Name; NameOf Shell: APath_Name; End 
Use rTypesc ript [Pasca//n/f] var: Port 
User Window [Pascallnit] var: Port 
UserWindowShared [Pascallnit] var: Boolean 
Valid_Name Chars [SesameDefs] const 

'$- . + 0123456789ABCDEFGHIJKLMNOPQRSTU\A/VXYZ_abcdefghijklmnopqrstuvwxyz' 

ValidateMemory [Accint] function(ServPort: port; var Address: VirtualAddress; NumBytes: Long; 

CreateMask: Long): GeneralReturn 
val ue_marker_ch a r [Commanc/Parse] const = ' = ' 
Var_CharA r [SymDefs] type = Packed Array[0..51 1] of Char 
Var_lntAr [SymDefs] type = Array[0..255] of Integer 
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var_ptr [SymDefs] type = Record Case Integer Of 0: (P: POINTER); 1: (p: pDirBlk); 2: (diet: 

pVarDictEntry); 3: (chars: pVar_CharAr); 4: (int: pVar_lntAr); End 
VarDescriptor [SymDefs] type = Packed Record mainType: BaseType; subType: BaseType; etc: 

0..255; End 
VarDictEntry [SymDefs] type = Record CompID: InternaLTime; Globals: Integer; Routines: 

Array[O..Max_SymRoutines] of Integer; End 
VarName Array [SymDefs] type = Record TotNumChars: integer; VarNames: Packed Array[0..0] of 

Char; End 
Ver_Separator [SesameDefs] const = ' # ' 
ViewChar [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; var dx: 

Integer; var dy: integer; ch: char) 
ViewChArray [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; var dx: 

integer; var dy: integer; chars: pVPCharArray; chars_Cnt: long; firstCh: integer; var lastch: 

integer) 
ViewColorRect [ViewPt] procedure(ServPort: Viewport; funct: RectColorFunct; x: integer; y: integer; 

width: integer; height: integer) 
ViewLlne [ViewPt] procedure(ServPort: Viewport; funct: LineFunct; x1: integer; y1: integer; x2: 

integer; y2: Integer) 
Viewport [SapptiDefs] type = Port 
ViewportState [ViewPt] procedure(ServPort: Viewport; var curix: integer; var curty: integer; var 

curwidth: integer; var curhelght: integer; var curRank: integer; var memory: boolean; var 

courteous: boolean; var transparent: boolean) 
ViewPutChar [ViewPt] procedure(Sen/Port: Viewport; fontVP: Viewport; funct: RopFunct; dx: 

integer; dy: integer; ch: char) 
Vie wPutCh Array [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; dx: 

integer; dy: integer; chars: pVPCharArray; chars_Cnt: long; firstCh: integer; lastch: integer) 
ViewPutString [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; dx: 

integer; dy: integer; str: VPStr255; firstCh: integer; lastch: integer) 
ViewROP [ViewPt] procedure(ServPort: Viewport; funct: RopFunct; dx: integer; dy: integer; width: 

integer; height: integer; srcVP; Viewport; sx: integer; sy: integer) 
Vie wSc roil [ViewPt] procedure(ServPort: Viewport; x: integer; y: integer; width: integer; height: 

integer; Xamt: integer; Yamt: integer)' 
Vie wSt ring [ViewPt] procedure(ServPort: Viewport; fontVP: Viewport; funct: RopFunct; var dx: 

integer; var dy: integer; str: VPStr255; firstCh: integer; var lastch: integer) 
VirtualAddress [/\ccenfrype] type = long 
VPChar [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; var dx, dy: Integer; ch: 

Char) 
VPCharArray [SapphDefs] type = Packed Array[o:.1] of Char 
VPChArray [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; var dx, dy: Integer; 

chars: pVPCharArray; arSize: Long; firstCh: Integer; var lastch: Integer) 
VPColorRect [ViewKern] procedure(vp: Viewport; funct: RectColorFunct; x, y, width, height: integer) 
VPExclusionFaiiu re [Accenf7ype] const = AccErr + 40 
VPintegerArray [Sapp/7De/s]type = Array [0..0] of Integer 

VPLine [ViewKern] procedure(destvp: Viewport; funct: LineFunct; x1 , y1 , x2, y2: Integer) 
VPNIY [ViewPt] exception 

VPPort Array [SapphDefs] type = Record num: Integer; ar: Array[0..0] of Port; end 
VPPutChar [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; dx: Integer; dy: 

Integer; ch: Char) 
VPPutCh Array [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; dx, dy: Integer; 

chars: pVPCharArray; arSize: Long; firstCh, lastch: Integer) 
VPPutString [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; dx, dy: Integer; var 

str: VPStr255; firstCh, lastch: Integer) 
VPREGI0N[Sapp/7De/s] const = 1 
VPROP [ViewKern] procedure(destvp: Viewport; funct: RopFunct; dx, dy, width, height: Integer; 

srcVP: Viewport; sx, sy: Integer) 
VPScrolI [ViewKern] procedure(destvp: Viewport; x, y, width, height, Xamt, Yamt: Integer) 
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VPStr255 [Sapp/?De/s] type = string[255] 

VPSUing [ViewKern] procedure(destvp, fontVP: Viewport; funct: RopFunct; var dx, dy: Integer; var 

str: VPStr255; firstCh: Integer; var lastch: Integer) 
VPtoScreenCoords [ViewPt] procedure(ServPort: Viewport; x: integer; y: integer; var scrX: integer; 

var scrY: integer) 
WAIT [AccentType] const = 
WaitEther Address [Etherilser] function: INTEGER 

WaitEtherCiear [EtherUser] function(Typ: INTEGER; Listener: Port): BOOLEAN 
WaitEtherFiiter [EmerL/ser] function(Typ: INTEGER; Listener: Port): BOOLEAN 
WaitPupClear [EtherUser] function(VAR Socket: Long; Listener: Port): BOOLEAN 
WaitPupFilter [EtherUser] function(VAR Socket: Long; Listener: Port): BOOLEAN - 
Wild_APath_Name[SesameDefs]type = string[Path_Name_Size] 
Wild_Path_Name [PathName] type = string[Path_Name_Size] 
WILDREGION [Sapp/7Defs] const = 31 
WillReply [Accenfrype] const = AccErr + 4 

Window [SapphDefs] type = Port 

WindowlnUse [ProcMgrDe/s] const = ProcMgrBase + 5 

Windov^ Viewport [Sapph] procedure(ServPort: Window; var vp: Viewport; var vpWidth: integer; var 

vpHeight: integer) 
WlnForName [Sapph] function(ServPort: Window; name: ProgStr): Window 
Win For View Port [Sapph] function(ServPort: Window; vp: Viewport; var isouter: boolean): Window 
WinNameArray [SapphDefs] type = Array[0..0] of ProgStr 
Word.String [CommandParse] type = String[1] 

Word_Type [CommandParse] type = (in_arg, out_arg, switch_arg, switch_value, command Jile) 
WordifvPool [CommandParse] function(ChPdo!: pCharacter_Pool; PoolLength: Char_PoolJndex; 

var WordStruct: Command Block): GeneralReturn 
V/riteBoolean [Writer] procedure(var F: FileType; X: Boolean; Field: integer) 
WriteCh [Writer] procedure(Var F: FileType; X: char; Field: integer) 
WrIteCh Array [Writer] procedure(var F: FileType; var X: ChArray; Max, Field: integer) 
WriteChars [Stream] procedure(VAR F: FileType; VAR S: String) 
WriteD [PasLong] procedure(var F: FileType; X: long; Field, B: integer) 
WriteFault [AccentType] const = AccErr + 26 
WriteFlle [PathName] function(var PathName: Path_Name; Data: File_Data; ByteCount: long): 

GeneralReturn 
Writeldentifier [Writer] procedure(var F: FileType; X: integer; var IT: identTable; L, Field: integer) 
Writelnteger [Writer] procedure(var F: FileType; X: integer; Field: integer) 
V/riteNChars [Stream] procedure(VAR F: FileType; c: char; N: Integer) 
WrlteProcessMemory [Accint] function(ServPort: port; Address: Virtual Address; NumBytes: Long; 

Data: Pointer; Data.Cnt: long): GeneralReturn 
WriteR [PasReal] procedure(var F: FileType; e: real; TotalWidth: integer; FracDigits: integer; format: 

integer) 
WriteSegment [Accint] function(ServPort: port; Segment: SegID; Offset: Integer; Data: Pointer; 

Data_Cnt: long): GeneralReturn 
WriteString [Writer] procedure(var F: FileType; var X: String; Field: integer) 
WriteX [Writer] procedure(var F: FileType; X, Field, B: integer) 
WRONGARGS [/\ccenf7ype} const ^ 2 
WrongEnvVarType[EnvMgrDefs] const = Env_Error_Base + 2 
WS_N9tFound [Co/77mandParse] const = -1 
WS_NotUnique [C0i7?mandParse] const = -2 " 

WSQMaplnfoRecord[Q/\/fapDefs] const = WordSize(QMaplnfoRec6rd) 
WSSoufceMapRecord[QA^apDefs] const = WordSize(SourceMapRecord) . 
Zonejnfo [TimeDefs] type = packed record TimeZcne: integer; UseTimeZone: boolean; Daylight: 

boolean; UseDaylight: boolean; end 



